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Introduction 



Este libro prctcnde ensefiarlc algunas dc las tccnicas dc programacion grafica 
que podra usar en su ordenador Amstrad. Hay capitulos que iratan de ani- 
macion. con caracteres o con dibujos, de realizaci6n de graficos y de histo- 
gramas, de formas geometricas y de otras muchas cosas. 

Cada capitulo contiene una seric de programas de ejemplo, muchos de los 
cuales le seran dc gran utilidad. Asi, el capitulo 2 contiene un programs que 
permite diseflar caracteres propios y archivarlos en cinta; el capitulo 3 contie- 
ne programas para realizar diagramas de barras y de seciores; el 4 y el 6, pro- 
gramas para la realizaci6n de dibujos en la pantalla y su almacenamiento en 

cinta. 

Se suponcn conocimicntos cicmentales dc BASIC, con aigo de manejo de 
bucles, decisiones condicionalcs y subrutinas. Aunque los principiantes dis- 
frutaran comprobando los programas cscritos en el libro, sacaran mayor 
provecho si leen antes otro libro del que soy autor: 'Programacion Basic con 
Amstrad' , tambien publicado por Amstrad Espafta. 

Para los que ya conoccn BASIC pero no han leido mi otro libro, comienzo 
por resumir en el capitulo 1 lo mas interesante de lo que toca a los comandos 
graficos del Amstrad. 
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Modos y colores 



LA PANTALLA 

En la vida real existen distintos tipos dc papcl para las diferentcs activida- 
des. Un arquitecio no dibuja en una Hbreta los pianos de las casas, de 
la misma manera que no es usual que un novelista escriba sus historias 
en papel dedibujo. En el ordenador, la pantalla es lo que se utiliza como 
papel, y es normal que tenga aspecto y textura diferentes cuando se la uti- 
liza para misiones diversas. 

Elcomando MODE, seguido del numero 0, 1 o 2, sirve para seleccionar 
uno de los tres aspeclos posibles de la pantalla del Amstrad. Cada modo 
se distingue por el numero de caracteres que admite en cada linea, por la 
cantidad de colores que permite utilizar simultaneamente y por el grado 
de resolution grafica (o sea, la flnura con la que sc pucden dibujar las li 
neas). 



Modo 


Numero de lineas 


Caracteres por linea 




1 
2 


25 
25 
25 


20 

40 
80 



Fignra 1.1. Los tres modos de la pantalla del Amstrad. 



El modo 2 es el ideal para tener en pantalla gran cantidad de texto; en 
cslc modo, cl Amstrad pcrmitc 25 lineas de 80 caracteres cada una. 

Cuando se enciende o se inicializa el Amstrad, la pantalla se pone auto- 
maticamente en e! modo 1 . Este modo da 25 lineas de 40 caracteres. El 
modo 1 proporciona la escritura mds legible; es el habitual cuando se cs- 
tan utilizando los comandos del Amstrad. 



1 



2 ItonOAl db prooramacion db orAficos bn bl Amstrad 

El modo da 25 Kncas con s61o 20 caractcrcs cada una. Es el mcjor 
para realizar figures en color, ya que admite 16 colores simultaneos. 

En cualquiera de los tres modos, se puede escribir en cualquier posicidn 
dc )a pantalla utilizando coordenadas de texto; 



10 MODE 1 

15 PRINT "Escribir camenzando en <ll 
20 LOCATE ID, 12 

30 PRINT "Aqui es" 



t, 12>. 



La posicidn del primer caracter que se escriba sera (10, 12). Los numeros 
10 y 12 son las coordenadas de texto de la posici6n. La primera es la 
coordenadaX (la posicibn del caracter en la linea) y la segunda la coorde- 
nada Y (la linea en la que esta el caracter, cmpezando a contar desde arri- 
ba). La instrucci6n LOCATE 10.12 es la que hace que comience la escri- 
tura en dicha posicion. Se puede usar el comando CLS para borrar la 
panlalla despues dc ejecutar el programa. 

Los numeros que se pueden utilizar como coordenada X de texto difie- 
ren en los diferentes modos de la pantalla, puesto que el numero de carac- 
rercs por lfnea es disiinto en cada uno de ellos. 





1 


2 




39 40 




1 














2 












1 

* 




24 




\ 






25 







Figura 1.2. La pantalla en modo 1 
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Si tuvicscmos que limiiarnos a cscribir slmbolos en las posicioes de ca- 
racteres de la panialla, las posibilidades de realizar graficas aceptables se- 
dan muy limiladas. Las 25 lfneas de 80 caracteres del modo 2 no permi- 
ien mas que resultados muy pobres a la hora de realizar dibujos a base 
de caracteres. Afortunadamcntc, cada posicidn cor respond icnie a un ca- 
rarter puede dividirse en pequeflos trozos; cada uno de ellos es un punto 
(o pixel). 

Dibujando a base de puntos individuales, en lugar de caracteres, se pue- 
den trazar lineas bastante finas. El tamafio de los puntos depende del 
modo de pantalla, dc la misraa mancra que era variable el numero de ca- 
racteres por Knea y el tamafio de cada caracter. 

El sistema de coordenadas de texto no es adecuado para describir la po- 
sicidn de un punto, ya que cada posicidn de caracter abarca varios pun- 
tos. El Amstrad usa un sistema de coordenadas diferente para las posi- 
ciones de los puntos; se trata dc las coordenadas grtfftcas. 



La pantalla grafica 

El sistema de coordenadas graTicas funciona dc mancra diferente del dc 
las coordenadas de texto. La pantalla grafica esta dividida horizontal- 




frlgin 1.3. La pantalla grrifica; se muesira el punto (200, 300). 
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mcnic en 640 punios y vcriicalmcntc en 400. La posici6n de cada punto 
sc identifica por su distancia a los bordes izquierdo e inferior de la pan- 
talla. 

La posicion del punto dc la figura 1 .3 es (200, 300). Observe que la se- 
gunda coordenada se midc desdc cl borde inferior de la pantalla, y que 
cl punto de la esquina inferior izquierdo de la pantalla tiene coordenadas 
graficas (0, 0). Al principle- esto puede resultar algo dificil de recordar ya 
que, para las coordenadas de texto, es el caracter superior izquierdo de 
la pantalla el que tiene coordenadas (1, 1). Observe ademas que las coor- 
denadas graficas comienzon a partir dc 0, dc mancra que el panto de la 
esquina superior derecha de la pantalla tiene por coordenadas graficas 
(639,399), no (640,400) como tambten cabria pensar. 

El programa siguiente muestra el uso de dos de los comandos graficos 
del Amstrad: 

10 MODE l 

20 MOVE 124,156 

30 DRAW 300,300 

40 DRAW 200,400 

30 DRAW 124, 156 

Con 61 utilizamos el cursor grafico para dibujar lfneas en la pantalla. 

Normalmente el cursor grafico y el de texto permanecen juntos, pero, 
en cuanto se utiliza un comando grafico, se esta usando el cursor grafico 
(invisible). 

El comando MOVE de la linea 20 hace que el cursor grafico se coloque 
en el punto (124, 156), aunque permanece siempre invisible. E! comando 
DRAW lleva el cursor desde el punto (124, 156) hasta el (300, 300), dibu- 
jando una recta entre ambos. Los otros dos DRAW de las lfneas 40 y 50 
dibujan los dos lados restantes de un triangulo. 

Asi pues, MOVE x,y lleva el cursor grafico al punto (x, y) sin dibujar 
ninguna Imea. DRAW x,y, en cambio, dibuja una recta desde el ultimo 
punto visitado por el cursor grafico hasta el punto (x, y). Es sencillo di- 
bujar figuras dc cierta complejidad almacenando las coordenadas x e y 
de los puntos en sentencias DATA y haciendo que el programa vaya le- 
yendo estas coordenadas: 

10 MODE 

20 X-l 

29 REM dibuja a base de MOVE y DRAW 

30 WHILE x>0 
40 READ x,y 
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50 READ x l,yl 




60 MOVE x,y 




70 DRAW :l,yl 




80 LOCATE 1,24:PRINT xj" "; y; : r*="" s WHILE r«=""i 




r*=INKEV*i WEND 




90 MEND 




100 END 




110 DATA 308,162,344,174,344,174,360,216,360,216 




, 364, 260,364, 260, 360, 318 




120 DATA 360,310,336,344,336,344,292,356,292,386 




, 248, 352, 248, 352, 212, 342 




130 DATA 212,342,200,316,200,316,196,246,196,246 




,200,214,200,214,216, 174 




140 DATA 216,174,252,166,316,198,300,190,300,190 




,272,190 




150 DATA 272,190,256,198,244,200,244,210,244,204 




,324,204,324,208,324,198 




160 DATA 256, 238, 268, 232, 268,232, 28B, 232, 288, 232 




, 296 , 242 , 276 , 242 , 276 , 284 




170 DATA 288,284,300,296,300,296,324,286,324,296 
, 288 , 282 , 264 , 282 , 252 , 294 






180 DATA 252,294,232,280,232,280,264,280,196,280 




, 100,296, lQ0,29<b, 172,266 




190 DATA 172,266,192,236,364,236,384,266,384,266 




, 380 , 294 , 380 , 294 , 364 , 282 




200 DATA 320,348,332,324,312,324,312,352,288,354 




, 292, 326, 272, 354, 280, 326, 264 , 348 




210 DATA 224,344,216,334,264,344,268,223,268,218 




,272,216,272,230,276,228,276,214,230,214,280,230 




,280,230,284,212 




220 DATA 288,212,284,230,288,228,288,220 




230 DATA -1,-1 




Es posible conseguir efectos graficos bastante imprcsionantes con solo las 




sentenrias MOVE y DRAW. Para conseguir curvas, se ulilizan rectas de 




pequefla longitud cmpalmadas sucesivamente. 




10 x=100iy=100 




20 u .3;: i mo -300 




30 incrensntottlO 




40 FOR numero=0 TO max 1 mo STEP incr»m»nto 




50 MOVE x+numero,y 
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60 DRAW x«-maxinio,y+numero 

70 MOVE x , y+nuitoro 

80 DRAW x*numero,y*maximo 

90 NEXT 



Ui-siihii-iiiii en Ins diferentes modos de pantalla 

Aunquc la pantalla grafica esta dividida horizontalmente en 640 punios 
y vcrticalmente en 400, el Amstrad no puedc discriminar realmcntc todos 
csos puntos. Ademas, el poder de discrimination de puntos depende del 
modo de pantalla, aunque todos los modos utilicen la misma pantalla gra- 
fica. Ejecuic el programa anterior cambiando la linea 1 por la siguiente: 

1 MODE 

El dibujo cs el mismo de antes, pero resulta mas basto porque las lfneas 
son mas gruesas. Prucbc ahora el siguiente programa: 

10 MODE 2 
20 MOVE 200,300 
30 DRAW 200,399 
40 MOVE 201,200 
50 DRAW 201,399 
60 HOVE 202, 100 
70 DRAW 202,399 
60 MOVE 203,0 
90 DRAW 203,399 

Las Uncas son ahora mucho mas finas. El modo 2 cs el denominado mo- 
do de alia resolucidn t ya que pcrmite distingutr 640 puntos en horizontal 
y 200 en vertical; por eso resultan tan Tinas las lineas cuando se utiliza 
DRAW en este modo. 

En el modo 2 no se pueden disiinguir en vertical dos puntos consecuti- 
vos; los puntos (10, 10) y (10, 11) son exactamente el mismo punto. Los 
modos 1 y tienen en vertical la misma resolution de 200 puntos que el 
modo 2, pero bajan mucho en resolucidn horizontal. Escriba lo 
siguiente: 



y ejecuic el programa. El modo 1 es el de media resolucidn; solo permite 
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distinguir horizontalmcntc 320 puntos. Esto hace que, en modo 1, los 
puntos (200,300) y (201,300) scan tratados como si fuesen un mismo 
punto. Escriba ahora: 

IB MODE 

y ejecute el programa por iercera vez. Ei modo es el de baja resolucidn, 
pues s61o puede distinguir 160 puntos en horizontal. 

Puede producirle extrafleza el hecho de que alguien elija realizar los di- 
bujos en el modo mis basto, cuando es posible la alta resoluci6n del mo- 
do 2. La raz6n es que, aunque el modo da la menor resoluci6n, permite 
en cambio utilizar 16 colores simultaneos en la pantalla. En este aspecto 
son inferiores los modos 1 y 2, como muestra la figura 1 .4. 



Modo 


Resolucion grafica 


Numero de colores simultaneos 



1 

2 


160x200 
320x200 
640x200 


2 

4 
16 



Figura 1.4. Resoluci6n grafica y numero de colores disponibles 
simultaneamente en los diferentes modos de pantalla. 



El ordenador tiene una capacidad de memoria Hmilada: solo puede al - 
macenar en la RAM una cierta cantidad de information sobre la pantalla. 
Se trata entonces de llegar a un compromiso, como en tamos otros aspec- 
tos de la informatica. Se puede utilizai la RAM para guardar informa- 
ci6n sobre muchos puntos con 2 colores posibles, o de menos puntos con 
4 colores, o de muchos menos puntos con 16 colores. El Amstrad le da 
a elegir; usted debe escoger lo que mas le interese en cada caso. 



La sentencia PLOT 



Las tineas que homes dibujado en los programas precedentes estan forma- 
das por puntos. El Amstrad puede dibujar los puntos uno por uno, si 
bien en modo 2 es dificil distinguir puntos aislados. De hecho, cada 
punto esta realmente formado por varies puntos fisicos de la pantalla; 
ninguno de los modos es lo suficientemente fino como para idcntificar un 



H IfrNHAS HI I'KlKjRAMAI'lriN 1)1 UKAjICOS 1!N II. Am.HTRAI) 

solo punto . I. ■ i ',i 1 1 1 . 1 1 1 . ! Lo que nosotros denominamos punto es el menor 
bloquc tie puntos de la palilalia que es posible singularizar en cada uno 
de los modos. 



ModoO 



Modo 1 



Modo 2 



• • • « 

• • • • 






• • 

• * 


punto 2x2 








• 

* 


punto 1 x2 



punlo 4x2 



ii^iini l.s. Tamano de los puntos graficos en cada modo de pamalla 



Parece raro permitir que el sistema de coordenadas indentifique mas 
puntos de los que pueden ser dibujados en cualquiera de los modos. La 
razOi : principal para ello es que asf queda abieita la posibilidad dc mcju- 
rar en el futuro la resolucion graTica sin que haya que cambiar completa- 

mente el sistema de coordenadas. 

La instruccion PLOT sirve para dibujar un punto aislado. Funciona de 
la misma manera que MOVE o DRAW; la palabra PLOT debe ir seguida 
dc las coordenadas gr&ficas del punto que sc desca dibujar. El siguiente 
programa dibuja seis puntos distintos: 



10 MODE 
20 PLOT 
30 PLOT 
40 PLOT 
50 PLOT 
60 PLOT 
70 PLOT 



160,200 
320,200 
324,200 
328,200 
332,200 
480,200 



En el modo los puntos son tan anchos que los cuatro que se dibujan 
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cntre las Ifucas 30 a 60 qucdan unidos formando un pequefto scgmcnto 
dc recta. En modo 1 los mismos puntos quedan separados. En modo 2, 
los puntos son tan pequcflos que le rcsultard diflcil distinguirlos. 



LOS COLORES 

AI encender el Amstrad, el lexto y los graTicos aparecen en color amarillo 
sobre fondo azul, independientemente del modo en el que se trabaje. En 
realidad, se dispone de 27 colores diferentes. no todos ellos perfectamente 
distinguibles unos de otros. Cada color tiene asignado un numero; para 
referirse a un color se utiliza siempre ese numero en lugar del nombre del 
color. 



Numero 


Color 





Negro 


1 


Azul 


2 


Azul intenso 


3 


Rojo 


4 


Magenia (rojo + azul) 


5 


Malva 


6 


Rojo Imeiuo 


7 


Morado 


8 


Magenta intenso 


9 


Verde 


10 


Cyan 


11 


Azul celeste 


12 


AmailHo 


13 


Blanco 


14 


Azul pastel 


IS 


Naranja 


16 


Rota 


17 


Magenia pastel 


18 


Vcidc intense 


19 


Verde raarino 


20 


Cyan intenso 


21 


Vcidc lima 


22 


Verde pastel 


23 


Cyan paste! 


24 


Amarillo intenso (dorado) 


25 


Amarillo pastel 


26 


Blanco intenso 



Figure 1.6. Los 27 colores del Amstrad con sus numeros de identificacidn. 
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Convicnc ahora advertir que el Amstrad no trabaja sobre toda la panta- 
Ua. sino sobre un gran rectangulo de la misma. Este rectangulo esta ro- 
dcado por un borde que no se utiliza. Al encender el ordenador, el borde 
csta del mismo color que el fondo de la pantalla. Este borde no forma 
parte dc la mcmoria del ordenador, ya que no se escribe ni se dibuja nun- 
ca en el. 




El borde pjede ser de cualquiw 
color »n cualqutar modo. 



Los colores que se jsan en a area 
de lexto dependen del modo de 
pantaHs. 



Figura 1.7. El borde de la pantalla en su monitor o televisor. 



El borde puede tener cualquier color en cualquier modo. No existen 
restricciones sobre el color que se emplee para el borde. El modo 2 s61o 
puede utilizar dos colores en la pantalla, pero en cambio el borde puede 
tomar cualquier otro color (de los 27 disponibles). Ejecute las instruccio- 
nes: 



IB MODE 2 
20 BORDER 

Segun la figura 1.6 el es el niimero del color negro. Al ejecutar BOR- 
DER nemos tefiido de negro el borde de la pantalla. Se puede cam- 
biar el por otros numeros, entre y 26, para probar el efecto de dis- 
tintos colores del borde. Por ejemplo, BORDER 26 pone el borde de 

bianco. 
En los modos y 1 el borde funciona de la misma manera. Como sc 

puede observar, el cambio de modo de pantalla no modifica el color del 

borde. Al encender el ordenador el borde se pone automaticamente de 

color azul, como con BORDER 1. 



MODOS Y COIXAES I 



PEN y PAPER 



Tambien se pucdc cambiar los colores que sc utilizan en el rectangulo 
principal de la pantalla. Pero aquf interviene la caniidad de memoria que 
se utiliza en el almacenamiento de la pantalla a la hora de restringir el nu- 
mero de colores que pueden ser utilizados simultaneamente. 

Vamos a ver cual es la situaci6n al eacender el ordenador. Mas adelan- 
te veremos como se puede carnbiar esta situacidn con el comando INK. 

Comenzaremos por hacer algun ensayo. Escriba MODE y PEN 4. 
Como "pen" significa pluma y el 4 es el numero del color magenta, ca- 
bria esperar que el texto fuese en adelante de este color. Sin embargo, 
todo lo que se escriba de ahora en adelante sera de color bianco. Si se 
teclca PEN 5, la pluma comienza a cscribir en negro. Finalmente, si sc 
teclea PEN 14 el texto que se escriba quedara parpadeando entre los colo- 
res amariUo y azul. 

Lo que ocurre es que en modo hay 16 tintas disponibles; la instruccidn 

PEN lo que hace es cargar la pluma con una de csas tintas. La figura 1 .8 
indica de que colores son inicialmcntc las 16 tintas en cl momento dc cn- 
cender el ordenador. 



Niimero dc 


ModoO 


Modo 1 


Modo 2 




PEN o PAPER 













1 


I 


1 




I 


24 


24 


24 




2 


20 


20 


1 




3 


i 


6 


24 




4 


26 


I 


1 




5 





24 


24 




6 


2 


20 


1 




7 


« 


6 


24 




8 


10 


1 


1 




9 


13 


24 


24 




10 


14 


20 


1 




11 


16 


6 


24 




12 


It 


1 


1 




13 


22 


24 


24 




14 


1/24 


20 


1 




IS 


16/11 


6 


24 





Figura 1.8. Los colores de las tintas al encender el ordenador. 

Un color doble (tintas 14 y 15 del modo 0) indica una tinia 

parpadeante entre los dos colores indicados. 
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Adcmas dc la pluma, tambien sc puede cambiar el color del fondo con 
la instruccibn PAPER (o sea, papel). Esta instrucci6n asigna para el fon- 
do una iinia determinada. Comience por inicializar el ordenador median- 
le las teclas <CTRL> (SHIFT) <ESC> y leclec MODE 0. Teclee luego 
PAPER 3. Lo que escriba a continuacion aparecera sobre fondo rojo. 
que cs el color de la linta numero 3 (el color 6). Si quiere que cambie todo 
cl fondo de la pantalla a este color, utilice el comando CLS. PAPER per- 
mite en modo utilizar para el fondo cualquiera de las 16 tintas posibles, 
incluidas las parpadeantes. 

Ahora podemos combinar las dos sentencias que hemos visto para se- 
leccionar los colores del texto y el fondo. Por ejemplo, 

PEN 3 
PAPER 4 
CLS 

sclecciona caracteres rojos sobre fondo bianco en el modo 0. 

Con los modus 1 y 2 todo ocurrc dc forma parccida, pero sc pueden 
sclcccionar menos lintas. En modo I las 16 tinlas se reducen en la practi- 
ca a 4, y en el modo 2 se reducen a dos. En el modo 2. ocho tintas son 
del color amarillo y otras ocho del azul, aunque estos colores se pueden 
cambiar por otros dos cuaiesquiera. Conviene que observe en la figura 
1.8 que una misma tinta puede tcner colores diferentcs en los distintos 
modos de pantalla. La principal consecuencia de este hecho es que un 
programa que trabaje perfectamente en el modo puede no funcionar 
cuando se lo ejecuta en modo 2, si las tintas de la pluma y del fondo pro- 
ducer! un mismo color en este ultimo modo. 

Naiuralmente, loscomandos PEN y PAPER se pueden utilizar tambien 

inclufdas en lineas de programa, como por ejemplo: 



10 


MODE 






20 


LOCATE 4,7 






30 


PEN 3 






40 


PAPER 5 






50 


PRINT "Rojo 


sobre 


negro'* 


60 


LOCATE 4,13 






70 


PEN 6 






00 


PAPER 3 






90 


PRINT 'Azul 


sobre 


rojo" 


100 LOCATE 4, 19 


i 




110 PEN 5 






120 PAPER 6 
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130 PRINT "N»yro «obr» azul " 

140 REM valorem normales de PEN y PAPER 

150 PEN 1 

160 PAPER 

Puede ejecutar este programa en los tres modos, cambiando para ello !a 
Hnea 10. Los resullados que se obtienen pueden ser curiosos, ya que las 
tintas son de colores diferentes en los distintos modos. 
He aquf otro ejemplo: 

10 MODE 

20 rojoenmodo0=3 

30 negroenmodo0=5 

40 PEN rojoenmodo0 

30 PAPER nogroonmado0 

60 CLS 

70 LOCATE 8, 12 

80 PRINT "Vale!" 

90 REM valores normal es de PEN y PAPER 

100 PEN 1 

110 PAPER 

Las dos ultimas lineas se encargan de restablecer las timas del fondo y la 
pluma a sus valores habituales, para evitar encontrarse al terminar el pro- 
grama con cosas como texto amarillo sobre fondo bianco, o con cualquier 
otra mezcla que haga ilegible el texto. 

Precisamente, uno de los problemas habituales cuando se trabaja con 
los colores es que, al terminar un programa, podemos encontrarnos con 
que el color de la pluma y del fondo coinciden. Una forma de solucionar 
esto es proceder como en los programas anteriores. Otra alternativa es 
programar una de las teclas de funcidn para que restituya los colores habi- 
tuales; por ejemplo, 

KEY 128,CHR*U3)+"INK 0, 1: INK 1,24:PEN li 
PAPER 0"+CHR*(13) 



Ejercicios 

1 . Escriba un programa que elija aJeatoriamente un punto de la pantalla y 
trace una linea hasta otro punto, elegido tambien aleatoriamente, y que 
repita el proceso hasta un nuevo punto, y as( hasta dibujar 100 lfneas. 
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2. Dibujc en la panialla un cohete utilizando las seniencias MOVE y 
DRAW. Escriba en el cohele el nonibre que usted quiera darle. 

3. Escriba bien cenirada en la pantalla del modo la frase "colores surti- 
dos" p haciendo que cada letra sea de un color diferente. 



(■raficos > colores 

Es facil en el Amsirad realizar dibujos a base de Hneas de colores. Si se 
ulilizan los comandos MOVE y DRAW como hemos hecho hast a ahora, 
sc obticnen lineas del color de la tinta 1. Como esta linta era del color 
24 en lodos los modos, hemos obtenido siempre lineas de color amarillo 
intenso. 

Para trazar lineas de otros colores se debe eraplear una generalizacidn 
del comando DRAW. Rcinicialicc cl ordenador y escriba: 

MOVE 100,100 
DRAW 300,300,2 

Obtcndra una Hnea que une los puntos (100, 100) y (300, 300), dibujada 
con el color de la tinta 2, que es (en modo 1) de color cyan intenso, el nu- 
mcro 20. Escriba ahora: 

MOVE 300,300 
DRAW 400,0,3 

y obtendra entre (300, 300) y (400, 0) una linea roja, puesto que la tinta 
3 es del color numero 6 en modo I . 

Con la misma facilidad se pueden utilizar estos comandos incluidos en 
los programas. 

Recuerde que ya explicamos que un programa que funciona correcta- 
menie en un modo de pantalla, puede no hacerlo en otro a causa del dife- 
rente significado de las tinias en los distintos modos. El siguiente progra- 
ma dibuja un rectangulo en modo 1 , con un lado amarillo, otro cyan y 
los otros dos rojos: 

10 MODE 1 

20 HOVE 100, 100 



30 DRAW 400, 100 




40 DRAW 100,300,3 




50 DRAW 100,300,2 




60 DRAW 100, 100,3 
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En la tinea 30 no sc cspccifiea cl numero dc la linta, por lo que el ordcna- 
dor utiliza la numcro 1 . Pcro, ejecute el programa una segunda vez. Le 
sorprendera seguramcnte la desaparicidn del lado amarillo. 

Cuando el ordenador encuenlra un comando DRAW sin numero dc 
tinta, lo que hacc cs conscrvar cl ultimo que se haya utilizado. A 1 ejecutar 
por segunda vez el programa, la ultima tinta utilizada es la numero 3, que 
sera la que utilice entonces en el DRAW de la linea 30. Esto tiene 3a ven- 
taja de que no es necesario especificar un nuevo color mientras se desee 
seguir utilizando el mismo. Compruebe este hecho con el programa: 

10 MQDE 1 

20 MOVE 200, 103 

30 DRAW 400,200,2 

40 DRAW 100,350 

50 DRAW 230, 100 

Pruebe tambien este programa en el modo 2, donde la tinta numero 2 es 
de un color diferente. 

El modo es con mucho el mejor para dibujar figuras con gran colori- 
do, siempre que no importe excesivamente la resoIuci6n: 

10 MODE 

20 x=0:y=0 

30 col or =1 

40 FDR con=0 TO 350 STEP 4 

.50 MOVE x+con,y 

60 DRAW x+350,y+con, color 

70 MOVE x,y+con 

80 DRAW x+con,y+35B 

90 col or=(c:olor-*-l ) HOD Ife 

100 NEXT 



Como cambiar las tlntas 

Hasta ahora s61o hemos utilizado unos cuantos de los colores que puede 
producir el Amstrad. Hay 16 tintas utilizables, pero hay 27 colores, como 
vimos en la figura 1 .6. El Amstrad permite cambiar los colores de las tin- 
tas, de manna que podemos asi seleccionar en un modo particular la ga- 
ma de colores que interese. 

Lo que no se puede alterar es la cantidad de colores que pueden apare- 
cer simultaneamcntc en la pantalla, pues es una cantidad fija que dependc 



16 THCNKAS DK PROOKAMACION DE URAFICOS EN EL AMSTRAD 

del modo dc pantalla. Son siempre 2 colores en modo 2, 4 colorcs en mo- 
do I y 16 colores en modo 0. Por ejemplo, se puede lograr que en modo 
2 cl iexto sea rojo y el fondo bianco, pero solo estos dos colores podran 
esiar en la pantalla en un instante dado. 

Al cncenderlo, el ordenador se pone en modo 1 , el fondo qucda dc la 
lima (PAPER 0), que es de color 1 , y el texto de la tinia 1 (PEN 1), que 
es de color 24. Rcinicialice el ordenador y escriba 

INK 1,6 

Todo el lexto que hay en la pantalla cambiara instantaneamente a color 
rojo intense El comando INK (o sea, "tinta") ha de ir seguido de dos 
numeros. El primero es cl numero de la tinta cuyo color se va a estable- 
cer; el segtindo es el numero del color que se asigna a la tinta. 

El comando INK 1,6 ha servido para cambiar la tinta 1 al color 6, que 
es rojo intenso. Todo lo que este escrito o dibujado con la tinta 1 cambia- 
ra automaticamente al nuevo color. Para poner el texto en azul utiliza- 
rcmos 

INK 1,2 

Lo que estaba en rojo se cambia a azul intenso. iDesea volver el texto 
al color usual? Posiblemente sepa ya como hacerlo. Escriba 

INK 1,24 

Normalmcntc, la tinta I es en todos Ios modos del color 24. 

Los cambios de color de las tintas sirven tambien para cambiar el color 
del fondo. En este momento el fondo es de la tinta (PAPER 0), de color 
azul. 

Para cambiarlo a bianco, escriba 

INK 1,26 

Scguramente le serd diffcil leer el texto. Pruebe con INK 0,6 o con 
INK 0,0. Normalmente el fondo es azul en todos los modos, del color 1 . 
Prucbc a volver el fondo de dicho color. 
No es necesario haber utilizado previamente una tinta para cambiarle 

cl color. Inicialice el ordenador y escriba 

INK 3,0 
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No parece que haya pusado nudu. Si ahora elegimos PEN 3 en el modo 
1 , la labia dc la fig ura 1 .8 parece sugcrir que obtendremos textos de color 
rojo intenso. 

Pero lo que hemos hecho ha sido cambiar la tinta 3 del color habitual 
al color 0, que es negro. Si escribe 

PEN 3 

vera que el nuevo texto aparecera en negro. Escriba ahora 

INK 3,6 

y todo el texto cscrito con PEN 3 pasara a rojo intenso. Este color perma- 
nece incluso si se cambia de modo; compruebelo. 

Es posible tambien crear tintas que sean intermitentes entre dos colores. 
Escriba 

INK 1,3,26 

y todo el texto que se haya escrito con PEN 1 comenzara a alternar entrc 
los colores 3, que es rojo, y 26, que es bianco. 

La adecuada utilizaci6n de tintas intermitentes puede servir para dar la 
impresion de movimiento. Si se hace que la tinta 1 sea intermitente ama- 
rillo/rojo y la tinta 2 lo sea rojo/amarillo, y se escriben caracteres alternos 
de las dos tintas, se produce la ilusion de un desplazamiento de los colores 
a lo largo de la linear 

10 MODE 1 

20 INK 1,3, 12 

30 INK 2, 12,3 

40 tintapluma-1 

50 FOR k=1 TO 40 

60 IF tintaplurna=l THEN tintaplutna=2 ELSE tintap 

luma=l 

7D PEN cintapluma 

80 LOCATE x, 13 

90 PRINT CHR*(143) ; 

100 NEXT 

La indudablc vcmaja del comando INK cs que pcrmitc scleccionar cual* 
quier combinacion de los 27 colores. Incluso en el modo 2, que s6lo 
admite dos tintas, se pucden conseguir buenos efectos usando combina- 
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ciones tales como texto rojo sobre fondo bianco; es decir, no estamos li- 
mitados a la combinacibn dc amarillo y azul que se obticne al encendcr 
el ordenador. El siguiente programa muestra las mas de 700 combinacio- 
ncs de colores posibles en el modo 2: 

10 MODE 2 

20 FDR X-0 TO 26 

30 CLS 

40 INK 0..: 

50 FOR y=0 TO 26 

60 IF xOy THEN INK l,y*PRINT "Color "jy 

70 respuesta*-" " 

80 WHILE respuesta*="" 

90 respuesta*=INKEYt 

100 WEND 

110 NEXT 

120 NEXT 



Kj ere id os 

1. Escriba su nombre en la pantalla con caracteres intermi rentes. Escoja 
para uno de los colores el mismo del fondo, de manera que el nombre 

aparezca y desaparezca. 

2. Dibuje una llama con lineas de colores apropiados. (Podra conscguir 
un dibujo muy efectivo utilizando colores intermitentes.) 

3. Dibuje un cangrejo rojo reposando en un playa de arenas amarillas. 
Elija las tintas y los colores de manera que los colores del dibujo no 
cambicn al cambiar el modo de pantalla. 



Caracteres y c6digos 



EL JUEGO DE CARACTERES DEL AMSTRAD 

El Amstrad dispone de una considerable variedad de caracteres predefini- 
dos. Ademas de los caracteres alfabeticos y numericos, tiene sfmbolos 
para representar notas musicales, hombrecillos, etc., como se pucde com- 
probar ejecutando el siguiente programa: 

10 MODE l 

20 FOR codiga*32 TO 233 

30 PRINT CHR*(codigo) I 

40 NEXT 

El Amstrad asocia cada uno deestos caracteres con un numero dec6digo, 
llamado "cddigo ASCII" del caracter. Losc6digosvandel0al255. Los 
cAdigos del al 31 tienen significados especiales para el ordenador, tales 
como 'hacer retroceder un espacio el cursor' o 'cambiar el color*. Los c6- 
digos del 32 al 255 corresponden a las letras mayiisculas y minusculas, los 
numeros, los signos de puntuaci6n, etc. La Hnea 30 de programa hacc 
que el ordenador escriba el caracter que corresponde a un determinado 
codigo ASCII. La figura 2.1 muestra la distribucidn de los c6digos AS- 
CII mas usuales. 



Codigos ASCII 



Caracteres 



Codigos especiales 

Espacio 

0-9 

A-Z 



a-z 



0-31 

32 

48-57 

65-90 

97-122 



Flgurn 2.1. Algunos dc los codigos ASCII mas usuales. 
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Los caracteres con c6digo entreO y 3 1 pucdcn ser exhibidos en la panta- 
lla prcccdicndolos del caracter cuyo codigo ASCII es 1: 

10 MODE 1 

20 FOR codigo=0 TO 31 

30 PRINT CHR4U)CHR*(codiqo> ; 

40 NEXT 

Esto proporciona una notable posibilidad de elecci6n de caracteres para 
nn programa. Sin embargo, hay siluaciones en las que se necesita algun 
caracter que no esta incluido en el juego de caracteres predefinidos del 
Amslrad; asi ocurre con las letras de ciertos idiomas, con los sfmbolos 
maicmaticos y tambien en los programas de juegos. En estos casos pode- 
mos recurrir a la posibilidad que ofrece el Amstrad de crear nuestros pro- 
pios caracteres definidos por el usuario. Ames de hablar de esto, varaos 
a echar un vistazo a la forma en que el Amstrad almacena los caracteres 
y a vcr por qu6 este metodo de almacenamiento limita los caracteres pre- 
definidos a s61o 256, con cddigos ASCII del al 255. 



Slslema binario; bits y byles 

iCbino almacena el Amstrad la informacidn? Para entenderlo de manera 
sencilla, lo mejor es imaginarse el ordenador relleno de millares de inte- 
rruptores, cada uno de los cuales puede estar en las posiciones de 'encen- 
dido' y 'apagado'. En el Amstrad, estos "interruptores" estan siempre 
agrupados en bloques de ocho. Representando la posici6n de 'apagado' 
por un y la de 'encendido' por un 1, podemos representar las posibles 
combinaciones de ocho interruptores como se indica en la figura 2.2. 

Ouiza no le sorprenda ya saber que los Ocho interruptores pueden en- 
contrarse en 256 situaciones posibles. Cada uno de los numeros es un nti- 



oooooooo 

oooooooi 

1 
1 1 

1111110 1 
11111110 

11111111 
Figura 2.2. Las 256 combinaciones posibles de 8 "interruptores". 
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mero binario, compucsto unicamente de las cifras y 1 . Las cifras y 
1 son las cifras dfgitos binarios; cada una dc cstas cifras cs un bit. Una 
combination de 8 bits es un byte. 

EI sistema binario es una forma de contar agrupando en grupos de dos, 
de la misma manera que nosotros contamos habitulamente haciendo gru- 
pos de diez. Cada numero binario es equivalente a un niimero en nuestro 
sistema de numeration. Es relativamcntc scncillo converlir un numero 
binario en la forma mas familiar de numero decimal, como veremos 
enseguida. 

El byte es la unidad fundamental de almacenamiento de informacibn 
en el Amstrad. Muchas de las limitaciones del ordenador proviencn jus- 
tamente del hecho de que s61o existen 256 bytes difcrcntcs. Si hay s61o 
256 caracteres predefinidos es porque cada caracter debe tcner asociado 
un codigo ASCII que se almacene en un byte. Una linea de programa 
puede tener una longitud de entre y 255 caracteres, ya que su numero 
de caracteres se almacena en un byte. Si existiesen 257 caracteres predefi- 
nidos, o si una h'nea pudiese tener mas dc 255 caracteres, cstas informa- 
ciones deberian almacenarse en dos bytes, lo que requerirfa considerable 
cantidad de memoria suplementaria. 

Cada caracter predefinido tiene un codigo ASCII, pero este codigo no 
es suficiente para que el ordenador sepa c6mo debe representar el caracter 
en la pantalla. Cada caracter esta construido en una cuadricula de 8x8, 
como vemos en el ejemplo de la letra "A" mayuscula. 



J 









Figura 2.3. La letra "A" mayuscula. 



Cada elcmento de la cuadricula puede estar encendido o apagado (en 
la pantalla) y aqui cntra de nuevo el sistema binario. ^verdad? Por oira 
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parte, la cuadrfcula 8x8 cs una consecucncia dc los 8 bits de un byte. Ca- 
da fila de la cuadrfcula puede ser almacenada en un byte, y la descripci6n 
completa del caracter ocupa 8 bytes. 



0001 1000 
00111100 
01100110 
01100110 
01111110 
01100110 
01100110 
00000000 

Figura 2.4. Definicidn binaria, con 8 bytes, del caracter "A". 



Los niimeros binarios son incornodos para trabajar con ellos porque son 
largos y es faal afladir y omitir por error algiin o algiin 1 . Es faal con- 
verts en numero decimal el valor binario de un byte; basta con sumar los 
niimeros que aparecen sobre las posiciones del byte en las que hay un 1 . 



128 6» 3? H I * 2 I 

0O11OO0 16+8 - 24 

11110 32 + 16+8+4 = 60 

110 110 64+32 +4+2-102 

110 110 64 + 32 +4+2=102 

O 1 1 1 1 1 1 64 + 32+16+8 + 4 + 2=126 

110 110 64 + 32 +4 + 2-102 

110 1 10 64 + 32 +4 + 2 = 102 

00000000 .0 



it*" 



FiRora 2.5. Definicidn, con niimeros dccimales, del caracier "A 



EI Amstrad puede facilitar aun mas este proceso realizando el trabajo 
mis tedioso. El comando PRINT STR$ (numero) convierte el numero 
que incluyamos como parametro en una cadena literal que cs equivalente 
en forma decimal. Podcmos comprobar que nucstros c&culos eran co- 
rrectos mediante el programa siguiente. Hay que poner los simbolos 
"&X" antes de un numero binario; deno hacerlo asf, el Amstrad lotoma- 
r(a como un numero decimal formado por s6Io ceros y unos. 

10 MODE 1 

20 numero=l 

30 WHILE numero>0 
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40 INPUT "T«clra tl numero binario, precedido po 

r &*X " jnufntro 

50 PRINT "Este es el numero decimal "STR* (numero 

60 WEND 

A veces tambieo es necesario con vert ir numeros decimales en binarios. 
Tambien de eso se puede encargar el Amstrad: 

IB NODE 1 

20 numero=l 

30 WHILE numera>B 

40 INPUT "Teclee el numero decimal " ; numero 

50 PRINT "Este es el numero binariD "BINS(numero 

> 

60 WEND 

Respecto de estos comandos que conviertcn numeros, hay que advertir 
que proporcionan una cadena literal como resultado. No se pueden hacer 
operaciones aritmeticas con cadenas; para realizarlas hay que convertir 
previamente la cadena literal en un numero: 

10 MODE 1 

20 numero"l 

30 WHILE numero>0 

40 INPUT "Teclee el numero decimal "(numero 

50 PRINT "Este es el numero binario "BIN* (numero 

) 

54 REM VAL convierte una cadena literal en un nu 
mero 

55 numer ico=VAL (BIN* (numero) > 

56 PRINT "Este es el numero "jnumerico 
60 WEND 



Como definir sus propios caracteres 

Cualquiera de los 16 caracteres cuyo codigo ASCII esta entre 240 y 255 
se puede redefinir para que tenga otra forma diferente. Para ver c6mo 
haccrlo, vamos a cambiar cl caractcr 240 para que sea la Ictra "A", apro- 

vechando cl hecho de que ya conocemos los valores de los 8 byies que se 
utilizan en la descripci6n de esta letra: 
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IB MODE 1 

20 REM SYMBOL d»fln» el caractir 

30 SYMBOL 240,24,60,102,102,126,102,102,0 
40 PRINT CHR«<240) 

La instruccion SYMBOL de la linea 30 es la que se encarga de informar 
al Amslrad de nuestra nueva definicion de! caracter. EI primer mimero, 
240, es el del c6digo ASCII del caracter; los ocho niimeros que siguen de- 
finen, fila por fila, la cuadricula del caracter. 

Para redefinir otros codigos ASCII adcmas dc los 16 citados, hay que 
cmplcar la instruccion SYMBOL AFTER, como en el programa siguiente: 

10 MODE 1 

20 SYMBOL AFTER 65 

30 SYMBOL 65,231,195,153,153,129,153,153,255 

40 PRINT CHRK65) 

* 

La linea 20 indica al ordenador que vamos a redefinir caracteres ASCII 
con c6digo igual o superior a 65. La 30 redefine el codigo 65, que inicial- 
mente representa la letra "A", para que de una imagen en ncgativo de 
la letra. El caracter que habia antes de la definici6n ha desaparecido. Pa- 
ra recuperarlo se puede reinicializar el ordenador, o tambien se puede em- 
plcar la instruccion SYMBOL AFTER, que devuelve a todos los caracte- 
res posteriores al especificado su aspecto inicial: 

10 MODE 1 

20 SYMBOL AFTER 65 

30 SYMBOL 65,231,195,153,153,129,153,153,255 
40 PRINT CHR*(65) 
50 SYMBOL AFTER 70 



Sislema hexadecimal 

Ya hemos visto que podemos ulilizar el ordenador para facilitarnos la 
conversi6n entre niimeros binarios y decimales. Aunque para nosotros el 
sistema familiar sea el decimal, cuando se trabaja con ordenadores es 
usual utilizar el sistema hexadecimal, que es el sistema de base 16. 

Los numeros hexadecimales se escriben habitualmente precedidos del 
slmbolo '&' para que no se confundan con los decimales. Es conveniente 
acostumbrarse a trabajar con este sistema de numeration. Su venraja 
principal estriba en que los valores que puede tomar un byte corresponden 
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NUMEHO DECIMAL EO.UIVALENTE HEXADECIMAL 



1 1 

* I i |if 

10 A 

11 8 

12 C 

13 D 

14 E 

15 F 

16 10 

17 11 

* - - i ■ * 

30 IE 

100 M 

• * * a., 

FF 



Figure 2.6. Algunos mimeros decimates y sus 

equivalences hexadeci males. 



exactamenle a los numeros hexadecimales de 2 cifras. Por ejeraplo, la 

description de la letra 'A' es mas sencilla cuando la hacemos con numeros 
hexadecimales, como vemos en el programa siguiente: 

10 MODE 1 

20 SYMBOL 240,&18, &3C, &6A, &fe6, S.7E, kit, •!,£&, 

30 PRINT CHR»(240> 

Puesto que el ordenador trabaja con bytes, los numeros hexadecimales 
resuitan mas convenientes en la mayor parte de los casos. Asi, bastan- 
les de los numeros que nos aparecen repetidamente, y cuya signification 
no queda clara al escribirlos en decimal, revelan su importancia al escri- 
birlos en hexadecimal. Por ejemplo, el maximo valor posible de los nu- 
meros de linea en los programas, 65535, parece arbitrario escrito en de- 
cimal. Su versi6n hexadecimal, &FFFF, adara la razon de este numero 
limite; 65535 es el mayor numero que se puede escribir con dos bytes. Con 
numeros de linea almacenados en dos bytes se puedc cfectivamente lie- 
gar hasta 256x256 = 65535. El empleo de numeros mas grandes requc- 
rlrfa que se les dedicasen al menos tres bytes. En cambio, si ios nume- 
ros de linea se almacenasen en un byte, su valor s6lo podrfa estar entrc 
y 255. 

El Amstrad convierte sin dificultad numeros decimales en hexadecima- 
les: 
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10 MODE 1 

2H numero* 1 

30 WHILE numero>0 

40 INPUT "Teclee el numero decimal "jnumero 
50 PRINT "En hexadecimal vale "HEX» <numer a) 
60 WEND 

Tambien hace la conversidn inversa; en este caso, el numero que se intro- 
duce es hexadecimal, y debe ir precedido de '&': 

10 MODE I 

20 numero=l 

30 WHILE numero>0 

40 INPUT "Teclee el numero hexadecimal, precedid 

o par 8( "; numero 

50 PRINT "Este es el numero decimal "STRMnumero 

) 

60 WEND 



JUEGOS Y CARACTERES DEFINIDOS 

Los caracteres definidos por cl usuario se emplean con gran frecuencia en 
los programas de juegos. El piograma que sigue define un caracter con 
forma de perro y lo escribe en varios lugares de la panlalla elegidos aleato- 
riamente: 

10 NODE 

20 SYMBOL 240,0,4,7,132,124,130,130,0 

30 FOR perroaleatorio^l TO 30 

40 xaleat = INTU9*RND(l>+l) 

50 yaleat=INT(24*RND(l>+l) 

60 tlntapluma-INT* 13*RND( 1 >•*■!) 

70 PEN tintapluma 

80 LOCATE xaleat,yals?at 

90 PRINT CHR«(240) 

100 NEXT 

Para hacer que la figura se mueva por la pantalla, vamos a escribir un es- 
pacio en bianco en la posici6n que ocupa el perro (para borrarlo) y a escri- 
bir cl perro en una nueva posici6n. El movimiento se dirige medianie las 
tcclas 'a', 'z\ V y V y el programa se termina cuando se pulsa *e\ 
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10 MODE 

20 SYMBOL 240,0,4,7,132,124,130,130,0 

30 perro*=CHR*(240) 

40 PEN 1 

50 «p»rro=13iyperro™10 

60 respuesta»="" 

70 WHILE respuesta*<>"e" 

80 ynuevo=yperro:xnuevo=>:perro 

90 respuesta*=INKEY* 

100 IF rBspuBEta«="4" AND yperroM THEM ynuovcy 

perro-1 

110 IF respuesta*-"z" AND yperro<25 THEN ynuevo- 
yperro+1 

120 IF respuestatH", " AND xperro>l THEN xnuevo^x 

perro-1 

130 IF respuesta*=". " AND xperro<20 THEN xnu«vo= 

xperro+1 

140 IF xperroOxnuevo OR yperro< >ynuevo THEN LOC 

ATE xperro,yperro:PRINT " " j : xperro=xnuevo: yporr 

o=ynuevo 

150 LOCATE xperro,yperro 

160 PRINT perro* 

170 WEND 

EI movimiento result a m£s creible cuando se utilizan caracteres distin- 
tos para las diferenles direcciones del movimiento. Para demostrarlo po- 
driamos modificar el programa anterior, pero Io que haremos sera utilizar 
como caracteres los que ya estan definidos para los codigos ASCII 240 a 
243. Se trata de flechas que apuntan en las cuatro direcciones: 

10 MODE 

30 f lecha*=CHR*(24B> 

4B PEN l 

50 xf lecha=13:yf lecha=10 

60 respuesta*="" 

70- WHILE rBopuoBtat<>"t" 

80 ynuevo=yf lecha: xnuevo=xf lee ha 

90 respuBsta»=INKEY« 

100 IF rBcpuoita*="a" AMD y*locha>l THEN ynuivo- 

yf lecha-l:-f lechat^CHR* (240) 

110 IF respuesta*="z" AND y*lecha<25 THEN ynuavo 

*yflecha«-l s f 1 echa»=CHR* (241 > 

120 IF respuesta*=" , " AND x-flecha>l THEN xnuevo- 

x*lecha-l:f lecha*=CHR*(242) 
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130 IF rB5puesta*="." AND xflecha<20 THEN xnuevo 

■k ♦ 1 achat 1 1 f 1 ech at^CHR* ( 243 ) 

140 IF KflechdOKnuevu OR y-f 1 echa< >ynuevo THEN L 

OCATE x-f lecha,y-flecha:PR!NT " " ; : x-f lecha=xnuevo: 

yf lecha=/nuevo 

150 LOCATE Kf lech*,yf lecha 

160 PRINT flecha* 

170 WEND 

La idea de este programa puede servir de base para muchos juegos. 

lino de los problemas que se presentan al definir caraclcrcs cs que, 
cuando se dibuja en papel un esquema del caracter, el posterior resultado 
en pantalla resulia con frecuencia bastante diferente de lo esperado. El 
disenador de caracteres que figura en la cinta de preseniaci6n del Amstrad 
liene el grave inconveniente de no dar la definici6n numerica del caracter 
que se dibuja; esta definicidn es necesaria para la sentencia SYMBOL. 

El programa que sigue le permitiri crear sus propios caracteres, le pro- 
porcionarA la definici6n numerica del car&cter creado y le dara la oportu- 
nidad de grabar esta dcfinici6n en un lichero. Asi podr£ construir su pro- 
pia biblioteca de caracteres dcfinidos, para utilizarla en la elaboracibo de 
proaramas. 

10 MODE 1 

20 DEFINT c,n,K,y 

29 REM matrices para almacenar la definician del 
caracter 

30 DIM codigo(3,8> ,simbolo(8> 
40 INK 3,20,6 

50 nombre*="??????" 

60 numero— 240 % 

69 REM 

70 GOSUB 1000 

90 GOSUB 3000 i GOSUB 4000 

89 REM esperar la respuesta del teclado 

90 respuesta*^"" 

100 WHILE rocpuesta«<>"B" 

110 xnuevo=M:ynuevo=y 

120 respuesta*=LOWER*<INKEY*> 

129 REM las cuatro lineas siguientco controUn e 

1 movimiento del cursor arri ba/abajo/izquierda/d 

y>ycDdiien:o THEN ynuev 

y<ycomien2o+7 THEN ynu 

x>xcomienzc> THEN xnuev 



erecha 










130 


IF 


rotpupq;- 


a*= 


"a" 


AND 


ey. 


1 










140 


IF 


r emptiest 


a*= 


"z" 


AND 


evo^ 


=y+l 


i 








150 


IF 


respuest 


3*= 


•1 II 
> 


AND 


o=x- 


-1 
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160 IF r»*pu»mt«**". " AND x<i<camienzo+7 THEN xnu 

evo=x+l 

169 REM so recti-fica la posiciOon si ha cambiado 

170 IF xnuevoOx OR ynuevoOy THEN GOSUB 2000 

179 REM si se aprieta la barra de espacio cambia 
el color del punto 

180 IF respue5tat=" " THEN 6DSUB 7000:GOSUB 3000 

189 REM si se pulsa 'o' se graba la definicion d 
ei oiiribolo en un fichero 

190 IF respuesta*="o" THEN GOSUB 5000: GOSUB 1000 

:G0SUB 3000: GOSUB 4000 

199 rem m i ee p U l aa 'i* se carga la definicion d 

el simbolo desde la cinta 

200 IF respuesta«="i" THEN GOSUB 6000: GOSUB 3000 

: GOSUB 40B0 

210 PEN 14 

220 LOCATE ;< , y 

230 PRINT CHR*(2B3); 

240 MEND 

250 END 

999 REM definicion del sinbolo vacio 

1000 CLS 

1010 SYMBOL numero, 0,0, 0,0, 0,0,0*0 

1020 PEN 1 
1030 FOR con=l TO 8 
1040 FOR conl=l TO 8 
1050 codigo<con,conl)=l 

1060 NEXT 

1070 NEXT 

1079 REM impreaiom de B*B cuadradoa vacioe para 

representar el caracter "espacio en bianco' 

1080 ;icomienzo=2: ycomienzo=2 

1090 FOR x^xcomienzo TO xcomienzo+7 

1100 FOR y=ycomienzo TO ycomienzo+7 

1110 LOCATE K,y 

1120 PRINT CHR*(233>; 

1130 NEXT 

1140 NEXT 

1150 x=xcoroien2o: y=ycomienzo 

1160 RETURN 

1999 REM impresion del caracter con su color cor 

recto 

2000 LOCATE x,y 

2010 xcodigo=x-xcomienzo+l : ycodigo=y-ycomi enzo+1 

2020 PEN codigo (xcadi QO.ycodigo) 
2030 PRINT CHRt<233)i 
2040 x=xnueva: y=ynuevo 
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1 

2050 RETURN 

2999 REM conversion de la matris codigo en 1 os o 
cho numeros decimales que definen el caracter 

3000 FOR con«l TO 8 



3010 simbolo*="&X 



3020 FOR conlal TO 8 

3030 simbolo*=simbolo*-HiID*(STR*(codigo<conl,con 
>-l> ,2,1) 

3040 NEXT 

3050 simbolo<CQn>=VAL(simbolo*) 
3060 NEXT 

3070 SYMBOL numero, simbolo< 1 ) , simbolo (2) , simbolo 

<5) , aimbolo<4) , »irabola(5> , simbolo <6) , simbolo (7) , 

5imbolo<8) 

30B0 FEN 1 

3090 LOCATE 1 , ycomienzo+10 

3100 PRINT "Simbolo: " ; CHR* <numero) ; 

3110 LOCATE l,ycofflien;o'12 

3120 PRINT "SYMBOL "; numero; si mbolo ( 1 >; simbolo (2 
) ; simbolo (3) ; simbolo <4> ; simbolo (5) ; simbolo<6) j si 
mbolo (7) ; si mbolo (8) ; 

3130 RETURN 

4000 PEN 1 

4010 LOCATE 1 , ycomienzo+15 

4020 PRINT "Nombre del simbolo: ";nombre* 

4030 LOCATE 1 , ycomi enzo+17 

4040 PRINT "Simbolo numero: ";numero 

4050 RETURN 

4999 REM grabar la definicion en un fichero 

5000 LOCATE 1,21 
5010 PEN 1 

5020 INPUT "Nombre del simbolo" j nombre* 
3030 OPENOUT nombre* 

5240 WRITE #9, nombre*, numero, si mbolo < 1 ) ,simbo 
lo 12) , simbolo<3) , simbo?. o (4) , si mbolo (5) , simbolo <6 
> , simbolo <7> , si mbolo <8> 

5050 CL0SEOUT 

5059 REM nombre y numero de simbola para la sigu 
iente de-finicion 

5060 nombre*""??????" 
5070 numoro-numero-t-1 
5080 RETURN 
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3999 REM lactura d«l fiehero con la deflnicion d 

el caracttr 

6000 LOCATE 1,21 

6010 PEN 1 

6020 INPUT "Nombre del si mbola " i nombre* 

6030 OPENIN nombre* 

6040 INPUT #9, nombre*, numera , ei mbol a ( 1 > , si mbol o ( 

2) , si mbol o (3) ,simbolo(4) 9 si mbol a < 5) , si mbol o< 6) , s 

imbolo (7) , si mbol o (8) 

6050 CLOSE TN 

6060 CLS 

6069 REM conversion a binario de la matriz simbo 
lo para obtener la matriz codigo 

6070 FOR con=l TO 8 

6080 simbolo*=BIN*(simbalo<con) > 

6090 longitud=LEN(simbolo*> 

6100 simbolo*=STRING*<8-longitud, "0") +simbolo* 

6110 FOR conl"! TO 8 

6120 LOCATE xcomienzo+conl— 1 , yeomienzo+con— 1 

6130 codigo^VAL (MID* (si mbol o*, con 1, 1) )+l 
6140 PEN codigo 

6150 PRINT CHR*<233>i 

6160 codigo (con 1 , con) _ uJi go 

6170 NEXT 

6180 NEXT 

6190 RETURN 

6999 REM si se aprieta la barra de espacio cambi 
a al color en lo posicion del cursor 

7000 xcodigo=x-xcomienzo+l : ycodi go=y-ycomienzo+l 
7010 IF codigo(xcodigo,ycodigo) =1 THEN codigo(xc 
odigo, ycodigo>-2 ELSE codigo (xcodigo, ycodigo) =1 
7020 RETURN 

Ejerricios 

1. Disefie un caracter con forma de arafla y defina la lecla de V para que 
proporcione araflas al pulsarla. 

2. Escriba un programa que mueva su arafia por la pantalla. A base de 
lineas podra ademas dibujar una lelarafla. 

3. Mejore ahora su programa disefiando arafias que miren en las cuatro 
direcciones y dibujando la que convenga para que la arafla vaya tniran- 
do en la direcci6n del movimiento. 
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liguras de varios caracteres 

En el modo 1 , cl tamafio de un caracier no da mucho de si pra crear una 
figura dctallada; puede ser convenient construir una figura mayor yuxta- 
poniendo varios caracteres. Cuando la figura es horizontal, se pueden 
juntar varios caracteres en una cadena literal: 

10 MODE 1 

19 REM los tres caracteres que -for/nan el camion 

20 SYMBOL 240, 0,0,96,96, 96, 127, IB, 12 
30 SYMBOL 241,0,0,0,0,0,255,0,0 

40 SYMBOL 242,248,132,132,255,255,255,72,48 
50 camion*=CHR* (240) +CHR* (241 ) +CHR* (242) 
60 LOCATE 18, 13 
70 PRINT camion* 



Es facil mover el camion con ayuda del teclado, aunque para que resulte 

convincente s61o lo moveremos hacia la derecha; para ello hay que pulsar 
« ». 



10 MODE 1 

20 REM las tres caracteres que forman el camion 

30 SYMBOL 240,0,0,96,96,96,127,18,12 

40 SYMBOL 241,0,0,0,0,0,255,0,0 

50 SYMBOL 242,248,132,132,255,255,255,72,48 

60 cami ont=CHR* (240) +CHR* (241) +CHRS (242) 

70 K-lsy-13 

B0 LOCATE x,y 

90 PRINT camion* 

100 respuesta*="" 

109 REM 

110 WHILE roopuo=ta*<>"e" 
123 xnuevo=x 

130 respuesta*=LOWER«(INKEYt) 

140 IF respuesta*=", " THEN xnuevo=x+l 

149 REM si el camion se ha movido se borra con u 
n espacio ol antiguo caractor de la izquierda 

150 IF xnuevoOx THEN LOCATE x,y: PRINT " "jcamio 
n* 

163 x=xnuevo 

170 WEND 
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Observe lo que ocurrc cuando la figura llega al final de la lfnea: salla 
automaticamente al comienzo de la nueva lfnea. Esto sc debe a que cl 
Amstrad nunca escribe un caracter en una posicion que le lleve fuera de 
la pantalla. Cuando se le presenia esta situacion, el ordenador toma la 
decision de mover el cursor de texto a una posicion conveniente, de acuer- 
do con las siguientes reglas: 

1) Si el cursor se va a salir de la panlalla por la derecha, se lo traslada 

al comienzo de la lfnea siguiente. 
2> Si el cursor se va a salir de la pantalla por la izquierda, se lo traslada 

a la ultima posicion de la lfnea anterior. 

3) Si el cursor se va a salir por la parte superior de la pantalla, el contc- 
nido de esta se desplaza una lfnea hacia abajo y el cursor permaneee 
en la primera lfnea de la pantalla. 

4) Si el cursor se va a salir por la parte inferior de la pantalla, el conte- 
nido dc esta se desplaza una lfnea hacia arriba, y el cursor permane- 
ee en la ultima lfnea de la pantalla. 

Aunquc s61o el caracter dclantero del camion se sitiie en una posicion 
ilegal, el ordenador considera toda la cadena literal como situada ilegal- 
mente. Esto ocurre cuando el camidn comienza en la posicion 39 de la 
linea; el ordenador lleva entonces toda la cadena al comienzo de la linea 
siguiente. Es importante recordar esto, ya que significa que el tamaflo de 
un caracter multiple influyc decisivanicntc en el numero de posiciones en 
las que podra ser dibujado. En el caso que nos ocupa, el mayor valor que 
pucde tomar la coordenada x de texto es 38. 



Cddigo ASCII 


Accion 


8 

9 

10 

11 


Mover el cursor una posicion hacia atras 
Mover el cursor una posicidn hacia delante 
Mover el cursor una linea hacia abajo 
Mover el cursor una linea hacia arriba 



Figura 2.7. Los cuatro codigos ASCII de movimiento del cursor. 



Parece bastante mas diffcil mover una figura compuesta cuando tiene 
forma vertical, puesto que en principio habria que emplear una instruc- 
cidn LOCATE para situar cada uno de los caracteres que la componen. 
Sin embargo, viene en nuestra ayuda el hecho de que existen cuatro c6di- 
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got ASCII (dc valorcs infcriores a 32) que sirven para mover el cursor en 
las cuatro direcciones. Sonlosqueseexplicanenlafigura2.7. Incluyen- 
do csios codigos como caraclcrcs, cs posible describir una figura vertical 
en forma de cadena literal; es lo que hacemos en la figura 2.8. El ordena- 
dor no dibujara en la pantalla estos caracteres de movimiento del cursor, 
sino que rcalizara con el cursor de texto el movimiento que corresponda. 





n 














b u 





arr$ 



mod* 



ebjS 



E I cohete se puede represemar rrediante una cadena (iteral compuesta por: 

arr$+CHR$l8)+ - . - +CHR$I8)+CHR$(10) 



muevo el cursor hscia atrfls y hacia 

abajo para escribir ios siguientes 

caracteres 



+ rn6dS + CHR8(8)+,,.+CHRS(8l + CHRS(10) 



la m»mo otra vez 



+abjS 



Figura 2.8. Cardcter multiple vertical creado con movimientos del cursor. 
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Para colocar cl cohete ca lu poiicidn dcscada dc pantalla, basta con una 
sola inslrucci6n LOCATE: 

10 MODE 1 

19 REM los trss caracteres que forman el cohete 

20 SYMBOL 240,0,24,24,24,24,36,36,36 
30 SYMBOL 241,36,36,36,36,36,36,36,36 

40 SYMBOL 242,66,129,129,129,129,133,195,129 

50 cohete*=CHR* < 240) +CHR* (8) +CHR* ( 10) +CHR* (241 ) + 

CHR* (8) +CHR* ( 10) +CHR* (242) 

60 xe20:y=20 

70 LOCATE n,y 

80 PRINT cohete* 

90 respuesta*=" " 

100 REM leer del teclado en tanto nD se pulse 'e 

p 

110 WHILE respuesta*<>"e" AND y>l 

120 ynuevo=y 

130 respuesta*=LOWER*(INKEY») 

140 IF respuesta*="a" THEN ynuevo^y-l 

150 REM 9i se ha movido el cohete ae borra con u 

n bianco el antiguo caracter inferior 

160 IF ynuevoOy THEN LOCATE x,y+2:PRINT " " : LOC 

ATE x, ynuevo: PRINT cohete* 

170 y=ynuevo 

ISO WEND 

Lamentablemente, cuando cl Amstrad echa sus cuentas sobre la longi- 
tud de una cadena y lo que le resta de lfnea, no tiene en cuenta los posibles 
caracteres de control del cursor que pueda haber en la cadena. En el caso 
anterior, el ordenador considerara que debe escribir una cadena con 7 ca- 
racteres y, en consecuencia, no podra hacerlo en una position cuya coor- 
denada X de texto sea superior a 34. Puede comprobar lo que decimos 
con solo cambiar la linea 60: 

60 x=3S:y=20 

Asi pues, podemos usar los caracteres de control del cursor para crear fi- 
guras multiples, pero teniendo siempre en cuenta lo que acabamos de de- 
cir. En muchas ocasiones ser£ preferible utilizar varias sentencias LOCA- 
TE para evitarse estos problemas. El siguiente programa muestra conjun- 
tamente las dos posibilidades: 
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10 MODE 1 

19 REM )ob tres caracteres que definen el cohete 

20 SYMBOL 240,0, 24, 24,24, 24,36,36,36 
30 SYMBOL 241,36,36,36,36,36,36,36,36 

40 SYMBOL 242,66,129,129,129,129,153,195,129 

49 REM de-finicion del cohete usando movimientos 

del cursor 

50 cohete*=CHR«<240)+CHP*(8>+CHR*(10)+CHR*(24l)+ 

CHRt (8) +CHR* (10) +CHR* (242) 

59 REM con asto procodi mi onto 1 a eoordenada x no 

debe pasar de 34 

60 x=l:y=20 

70 LOCATE 3,23 

80 PRINT "Definido con movimientas del cursor" 

90 FOR ycaord=y TO 1 STEP -1 

100 LOCATE x,ycoard+3 

110 PRINT " " 

120 LOCATE x.ycaard 

130 PRINT cohete* 

140 NEXT 

149 REM hay que pulsar una tecla para continuar 
la demostracion 

150 respuesta»="" 

160 WHILE respuesta*="" 

170 respuesta*=LOWER*<INKEY*) 

180 WEND 

190 CLS 

199 REM can este proccdimi ento la coordonada h p 

uede tomar cualquier valor 

200 >:=36:y=>20 
210 LOCATE 7,23 

220 PRINT "De-finido usando LOCATE para cada part 
o" 

229 REM cada parte del cohete se coloca mediante 
su propia instruccion LOCATE 

230 FOR ycoord=y TO 1 STEP -1 
240 LOCATE x,ycoord 

250 PRINT CHR*(240) 
260 LOCATE x,ycoord+l 
270 PRINT CHR$<241) 
280 LOCATE x,ycoord+2 
290 PRINT CHR*(242) 
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299 REM «a borra 1* base del cohete de la poalci 
on anterior 

300 LOCATE x,ycoord+3 
310 PRINT " " 

320 NEXT 

Se pueden obtener efectos mas interesanies definiendo dos figuras ligera- 
menie diferentes y dibujando alternativamente una u otra. Utilizando es- 
la idea, producimos el efecto de una culebra que serpentea sobre la 
pantalla: 

10 MODE 1 

1? REM defimcion de 1 os dos caracteres con form 

a de culebra 

20 SYMBOL 240,0,0,32,80,81,74,130 

30 SYMBOL 241,0,0,0,132,74,81,80,32 

40 culebral»=CHR*(240) 

50 culebra2*=CHR*<241> 

60 culebra*=culebral* 

70 y=13 

80 FOR x=l TO 39 

89 REM alternancia entre los dos caracteres cule 
bra 

90 IF culebra*=culebral* THEN cul ebra*=cul ebra2* 
ELSE culebra*=culebral* 

100 LOCATE x,y 

109 REM el espacio borra la culebra anterior 

110 PRINT " "jculebra* 

119 REM un tiempo de espera para que el moviraien 
to no sea excesi vam&nte rapido 

120 tiempo=TIME 

130 WHILE TIME<tiempo+10 
140 WEND 
150 NEXT 

De la misma manera podriamos definir dos figuras de cami6n para dar 
la impresi6n del traqueteo que produce su movimiento. O podemos hacer 
que cl pcrro que ya habfamos dibujado nienet ahora la cola al pasearse: 

10 MODE 1 

19 REM definiclon de los dos caracteres con form 

a de perro 
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20 SYMBOL 210,0,132,135,132,124,130,130,8 

30 SYMBOL 241,0,36,71,132,124,130,65,0 

40 perral*=CHR*<240) 

50 perra2*=CHR«(241> 

60 perra*=perr ol» 

70 y=13 

80 FOR >:=1 TO 39 

09 REM alternancia entre los dos caracteres perr 



70 IF perro*-perrol» THEN porro*=perro2t ELSE pF> 

rr o*=perrol* 
100 LOCATE x,y 

109 REM el espacio borra el perro anterior 

110 PRINT " "sperrot 

119 REM un tiompa do ospera para que el movimien 
to no sea axcesi vamente rapido 

120 tierapo=TIME 

130 WHILE TIME<tiempo+30 

140 MEND 
150 NEXT 



Ejerclcios 

1. Dibuje su propia versidn dc un autobus con varios caracteres y con- 
duzcalo a lo largo de la pantalla. 

2. Disefie dos caracteres circulares con un diametro situado en dos angu- 
los diferentes y dibujelos alternativamente para obtener la impresi6n 

de una rueda. 

3. Anada a su autobus unas rucdas que giren al desplazarlo. 



C6mo mejorar la resolution 

A pesar dc que sc pueden lograr muchas cosas utilizando unicamente la 
pantalla de texto, hay ciertas limitaciones que resultan obvias. La mejor 
resolucion posible es la del modo 2, pero esta limitada a 25 lineas de 80 
caracteres. En cambio, la peor de las resoluciones graficas es de 160 por 

200 puntos. 

Afortunadamcnte, el Amstrad permite dibujar los caracteres en cual- 
quiera de las posiciones de la pantalla grafica; esto permite realizar dibu- 
jos que se mucvan con suavidad. Tambidn hace posible, en trabajos mas 
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profesionaies, colocar rdtulos en las graficas en la posicidn mas conve- 
nicntc, en lugar dc lener que hacerlo en la posici6n de texto mas ccrcana. 
El cambio de texto a coordenadas graficas irae cunsigo algunos cam- 
bios. Cuando se ha ejecuiado el comando TAG (de "Text At Graphics", 
texto en posiciones graficas), los caractercs no se colocan en su silio 
mediante la sentencia LOCATE, sino mediante MOVE, que sirve para 
situar el cursor grafico. El punto que ocupa el cursor grafico sera el pun- 
to superior izquierdo del caracter. Veamos como podemos mover de esta 
forma un caracter que representa uno de los clasicos "invasores del es- 
pacio": 

10 MODE 1 

If REM definlcion del invasor extraterrestre 

20 SYMBOL 240,24,60,126,219,255,255,165,165 

30 invasor*=CHR*(240) 

40 xgraf ico=10O: ygraf ico=200 

49 REM asociar el texto al cursor grafico 

50 TAQ 

60 FDR x=xgra-fico TO 600 
70 MOVE x,ygra-fico 

78 REM el espacio en bianco ea para borrar el in 
vasor de la posicion anterior 

79 REM allmine al punto y corns para probar 

80 PRINT - "invasor*s 
90 NEXT 

Es fundamental aqui el punto y coma que termina la sentencia PRINT, 
ya que, cuando se utiliza TAG para controlar la cscritura dc caractercs, 

los codigos cntre y 31 no son obedecidos, sino dibujados. Sin el punto 
y coma, se dibujarian en cada caso los caracteres 10 y 13 que, como ca- 
racteres de control, son CR y LF (los que sirven para llevar cl cursor al 
comienzo de la linea siguiente). Lo verd aiin mejor con cl ejemplo del 
cohctc: 

10 MODE 1 

19 REM los tres caracteres que de-finen el cohete 

20 SYMBOL 240,0,24,24,24,24,36,36,36 
7-0 SYMBOL 241,36,36,36,36,36,36,36,36 

40 SYMBOL 242,66,129,129,129,129,153,195,129 

50 cohete*=CHR* (240)+CHR» <8> +CHR* ( 10) +CHR* (241 ) + 

CHR* <3> +CHR* (10) +CHR« <242) 

60 TAS 
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70 xgra*ico»300s ygraf ico=100 

80 FOR y=ygrafico TO 350 

B9 REM se borra la base del antiguo cohete 

90 MOVE jigra+ico,y-24 

100 PRINT " "j 

109 REM imprimir el nuevo cohete (que birria) 

110 MOVE >:grafico,y 
120 PRINT cDhete*; 
130 NEXT 

jNada que ver con lo que queriamos! Los problcmas que crea el movi- 
miento del cursor, tamo en el raodo de texio como en el gr^fico, son mas 
scncillos de resolver para figuras scncitlas. Si una figura csia formada 
por una tira horizontal de caracteres, entonces se la puede situar con una 
s61a instruccitfn MOVE, ya que, al escribir un caracter, el cursor grafico 
sc mueve automaticamente el espacio equivaleme a la anchura de un ca- 
racter, col oca n dose en la posicidn adecuada para el siguiertte. Nuestro 
camion funcionara sin problcmas por cstc mclodo: 

10 MODE 1 

19 REM los tres caracteres que -forman el camion 

20 SYMBOL 240,0,0,96,96,96,127,18,12 

21 SYMBOL 241,0,0,0,0,0,255,0,0 

22 SYMBOL 242,248,132,132,255,255,255,72,48 
30 cami on*=CHR* ( 240) +CHR* ( 24 1 > +CHR* < 242 ) 

40 xgra+ico=0: ygraf ico=200 

49 REM asociar el texto al cursor gra-fico 

50 TAG 

60 FOR x=xgrafico TO 600 
70 MOVE x,ygrafico 

79 REM el espacio en bianco es para borrar la pa 
rte trasera del camion anterior 

80 PRINT « "camiont; 
90 NEXT 

Para el cohete, sin embargo, hay que utilizar una serie de instrucciones 
MOVE: 

10 MODE 1 

19 REM los tres caracteres que definen el cohete 

20 SYMBOL 240,0,24,24,24,24,38,36,36 
30 SYMBOL 241,36,36,36,36,36,36,36,36 
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40 SYMBOL 242,66,129,129,129,129, 153,195, 129 

50 coh»t9*rrlb**-CHR*(240> 

51 cohetemedio*=CHR*<24l) 

52 coheteabajOt=CHR*(242> 
60 TAG 

70 xgra-f ico=300: ygra*ico=100 

B0 FOR y=ygrafico TO 350 

89 REM se borra la base del antiguo cohete 

90 MOVE igraf ico,y-48 
100 PRINT " "; 

110 MOVE xgrafico,y 

120 PRINT cohetearribat; 

121 MOVE Kgraf lco,y-16 

122 PRINT cohetemedio*; 

123 MOVE xgrafico.y-32 

124 PRINT coheteabajo*; 
130 NEXT 

La sentencia TAG se anula mediante la TAGOFF; tambien se anula auto- 
maticamente al finalizar un programa. 



Movimlenius mas rapldos 

Ya se habra dado cuenta del precio que hay que pagar a cambio de obte 
ner movimientos waves de las figuras: el programa va mas lento. Hay 
una serie de medidas que podemos tomar para que el programa vaya lo 
mis i a" pidamente posible. 

En primer lugar, se aumenta la rapidez si se trabaja con niimeros ente- 
ros siempre que sea posible. Esto permite al ordenador hacer los calculos 
con mayor rapidez. Puede que piense que no hemos ulilizado otra cosa 
que enteros en los programas precedcntes, pero no es asi. E! ordenador 
tiata todos los niimeros como reales (niimeros con punto decimal) si no 
se le dice otra cosa. Para declarar ciertas variables como enteras se puede 
utilizar la instrucci6n DEFINT: 

1 DEFINT x,y 

El ordenador tratara entonces como enteras a todas las variables numeri- 
cal! que comiencen por G, X o Y. Se puede observar el cambio que esto 
origina en la velocidad si se realiza el mismo programa con y sin la especi- 
ficaci6n de niimeros enteros: 
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1 DEFINT x,y 

10 MODE 1 

l? REM loa tres caracteres que forman el camion 

20 SYMBOL 240,0,0,96,96,96,127,10,12 

21 SYMBOL 241,0,0,0,0,0,253,0,0 

22 SYMBOL 242,248,132,132,255,255,255,72,48 
30 camion*=CHRt (240) +CHR* (241 ) +CHR* (242) 

43 >:graf Jco H 0: ygraf ico-2013 

49 REM asociar el texto &1 cursor grafico 

50 TAG 

35 tiempoinici al=TIME 
60 FOR x=>;grafico TO 600 
70 MOVE ;i,ygrafico 

79 REM el espacio en bianco es para borrar la pa 
rte trasera del camion anterior 

80 PRINT " "camiontf 
90 NEXT 

99 tiompototal=TIHE 

100 TAGOFF 

1L0 LOCATE 1,20 

120 PRINT "Tiempo transcurrido " (tiempototal -tie 

mpoint cial > /300 "segundos" 



Una segunda manera de lograr mas rapidez es observar cuaU es el minimo 
desplazamienio que puede cfectuar realmente el ordenador en cada mo- 
do. Si en modo se desplaza horizontalmente un caracter en una sola 





Kigura 2.9. Dos caracteres que represeman "invasores del espacio"; 

el primero cs mas util, ya que su bordc sirve para borrar lo que 

queda de el en la posicion anterior. 
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unidad, sc vuclve a obtcner cl mismo caracter. Para obtener un dcsplaza- 
miento horizontal hay que modificar la coordenada horizontal en al mc- 
nos 4 unidades en modo 0, y en 2 unidades en modo 1. En vertical, la 
modification debe ser de 2 unidades en cualquiera de los modos. 

Finalmente, podemos disefiar caractcrcs que tengan un bordc vacfo al- 
rededor de la figura. Esto garantiza que al desplazarse en cualquier dircc- 
cidn no va dejando huellas tras de si. La segunda de las dos figuras dc 
"invasores del espacio" que estan dibujadas en la figura 2.9 debe ser bo- 
rrada cada vez que se produce un desplazamiento. Esto contribuye a ha- 
cer mas lento el programa. 



,;Y ahora qu£ mis? 

Muchos programas de juegos necesitan identificar lo que hay en una dc- 
terminada posicion de la pantalla. Por ejemplo, <,como saber si un coche 
choca al correr contra la barrera?; o icomo saber si nuestro disparo ha 
alcanzado a un invasor?. Utilizando TEST (x.y) para determinar el nu- 
mero de tinta que cubre una determinada posicidn grdfica. Eligiendo cui- 
dadosamenle los colores que se emplcan, esto pucde scrvir para que el 
programa sepa que es lo que hay en una posicion que se ha alcanzado. 
Podemos dibujar en rosa todas las araflas, por ejemplo, y hacer que el 
programa reaccione cuando Hevamos nuestra mosca a una posicidn pinta- 
da de rosa: 

I REM para aufrentar la velocidad 
5 DEFINT c,x,y 
10 tfODE G 

39 REM caracteres mosca y arana 

20 SYMBOL 240,0,36,90,90,90,36,0,0 

30 SYMBOL 241,145,92,52,31,248,44,74.137 

40 rr^JE(;a»=CHRt<240) 
50 aranaS=CHR*<241) 
60 GOSUB 1000 

70 xmosca=300:yroasea=200 

B0 xnuevo-xmoaca; ynuevo-ymosca 

90 Mtest=xmosca:ytest=ymosca 

100 MOVE «mosca,ymosca:PLOT >imosca,y(nosca, 1 

110 GOSUB 2000 

120 respuesta*="":moscamuprta=0 

129 REM se leen caracteres del teclado mientr** 

la mosca siga viva 
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130 WHILE respuesta*^"" OR Aoscamuerta-0 
MB xnuevo^imosca: ynuevo=ymosca 
150 respuesta*=LOWER* (INKEYt) 

159 REM la posicion txtest , ytest ) para comprobac 
ion del color depend* dp la direccion del movimi 
ento 

160 IF respuesta*="a" THEN ynuevc=ymosca+2: atest 
»xnuevo+16: ytest-ynuevo+8 

170 IF respuestaS~"z " THEN ynuevo=ymosca-2: *test 

=ttnuevo+16a ytest=ynuevo-24 

180 IF respuesta*=°. " THEN >inuevo=xfnosca+4:^test 

=xnuevo+48: ytest=ynuevo-8 

190 IF respuesta*-" , " THEN xnuevo^mosca^As xt 

est=xnuevo-16: ytest=ynuevo-B 

200 IF xnuevoOxnosca OR ynuevoOymosca THEN GOS 

UB 2000 

210 WEND 

220 MODE 1 

230 END 

999 REM color rosa 

1000 MOVE 0,0 
1010 DRAW B ? 0, 11 
1020 TAG 

1029 REM dibujar 10 aranas al eatori amente 

1030 FOR aranas^l TO 10 

1040 Karana^INT(600»RND(l)+20> 
1050 yarana=INT<300*RNDU)+20> 
1060 MOVE >:arana» yarana 
1070 PRINT aranat; 
1080 NEXT 
1090 RETURN 

1999 REM se comprueba el color de la siguiente p 
osicion del car act er 

2000 coIor=TEST(xtest,ytest) 

2008 REM si e5 roaa, ftuere la mosca 

2009 REM no ae consider* fcacar la arana el tocar 
solo la suprficie 

2010 IF color=ll THEN moscamuerta^l :5QUND 7,2000 

2019 REM dibujo de ia moaca en la nueva posicion 

2020 *mosca=x.nuevo: ymosca~ynuevo 
2050 MOVE xmocca, ymoeca 

2060 PRINT mosca*; 
2070 RETURN 
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Podcmos modificar cl jucgo ulili/ando comadores de tiempo: 

120 re5puesti» B " ,, Knoscamuerta=B 

126 REM ahora hay que alcanzar con la mosca la e 
equina auperior izcfjicrda 

127 REM lo mas rapidamente posible, puesto que c 
uenta el tiempo 

128 tiempoinicial=TIME 

129 REM se leen caracteres del teclado ftientras 
la iciosca siga viva y no se alcance la csquina 

130 WHILE (respuesta*» -IM OR moscamuerta=0) AND ( 
>;mosca<600 OR ymosca<3BB) 

140 xnuevo^xmosca: ynuevo^ymosca 
150 respuesta*=LOWER*(INKEY*> 

159 REM la posicion (xtest f ytest) para comprobac 
ion del color depends de la direccion del movimi 
entc 

160 IF respuesta*="a" THEN ynuevo=ymo*ca+2: xtest 
=xnuevo+16: ytest=ynuevo+S 

170 IF respuesta* =,l z" THEN ynuevo«ymosca-2t xtest 

=xnuGVO+ 16: ytest=ynuevo— 24 

180 IF respuesta*=". '* THEN xnueva=xmasca+4: xtest 

*Knuevo+4Bs ytMt*ynuevo*B 

190 IF respuestat=%" THEN xnuevo-xmosca-4: xtest 

=xnuevo-16: ytest=ynuevo-8 

200 IF xnuevoOxmosca OR ynuevoOymosca THEN GOS 

UB 2000 

210 WEND 

215 TAGOFFtCLS 

220 IF moscamuerta=3 THEN PRINT "Tiewtpo: "TlME-t 

iempoinicial 

230 END 

Una variante del comando TEST es el TESTR; la diferencia estriba en que 
en TESTR la posicion que examina se define por su desplazamiento relati- 
vo desde la posicion actual. Por cjcmplo, TESTR (10,-5) examina el 
pumo que se encuentra 10 unidades a la derecha y 5 unidades arriba del 
actual. 

El siguienie programa nos ensefta como se utiliza; consisie en conducir 
un coche sobre una pista de carreras* sin salirse de la carretera que estd 
pintada en negro. 
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IB MODE 

20 GOSUB 11300 

30 Q03UB 20B0 

40 END 

1000 PAPER 12 

1010 PEN 

1020 CLS 

1029 REM dibujo de lo piste, 

1030 ladox=3iladoy=7 

1040 FOR y«=ladoy TO ladoy+11 
1050 LOCATE ladox,y 

1060 PRINT CHR*(I43)CHR*U43> ; 

1 070 LOCATE 1 ad o>. * 1 5 , y 

1080 PRINT CHR*(143)CHR*(143) ; 

1090 NEXT 

1100 xcom=7:ycam=5 

1109 FOR con*-l TO 1 

1110 LOCATE xcom,ycom+eon 

1120 PRINT STRING* (8, CHR* < 143) ) j 

1121 LOCATE xcom,ycom-l 
1130 LOCATE Kcom,ycom+15+con 
1140 PRINT STRING*(8,CHR*<143> >; 
1-141 NEXT 

1150 TAG 

1160 color=0 

1170 «izq-32iKder-376 

1180 yabajo=150:yarriba=330 

1190 ycambio=6:xcambio=32 

1200 PLOT xizq+xcambio,yarriba+ycambio, color 

1210 FOR con=l TO 4 

1220 yycambi o=ycambi o»con 

1230 xxcambio*xcambio*con 

1240 MOVE xizq-t-xxcambio.yarriba+yycambio 
1250 PRINT CHR*<143) ; 
1260 GOSUB 1600 

1280 MOVE xder-xxcambio.yarriba+yyeambio 
1290 PRINT CHR«(143) ; 
1300 GOSUB 1600 

1320 MOVE xizq+xxca*nbio,yabajD-yycambio+8 
1330 PRINT CHRK143) ; 
1340 GOSUB 1600 

1360 MOVE xder- xxcambio,yabajo-yycambio+8 
1370 PRINT CHR*(143)j 





* 

Caracterbs v codigos 47 


1380 


BDSUli 1 600 




1400 


NEXT 




1408 


REM dos caractsres representando 


un coche 


1409 


una para movimiento arriba/abajoi 


! atro para 


movi ml ento izquierda/derecha 




1410 


SYMBOL 240,0, 102,36, 126, 126,36, 102,0 


1420 


SYMBOL 241,0,90, 126,24,24, 126,90, 





1430 


lado«=CHRM240) 




1440 


arriba*=CHR*<241) 




1450 


coche»=l ado* 




1460 


xcoche=400: ycoche=338 




1470 


PLOT xcoche+16, ycoche-4,3 




1480 


MOVE xcoche.ycoche 




1490 


PRINT cochet; 




1500 


RETURN 




1600 


FOR conl=l TO 4 




1610 


MOVER -32,-16 




1620 


PRINT CHRM143) j 




1630 


NEXT 




1640 


RETURN 




1999 


REM e;:amen del teclada 




2000 


gDlpe=0 




2010 


xcambio=0: ycambio=0 




2020 


WHILE golpe=0 




2030 


respaestat=LQWER*< INKEY*) 




2040 


IF respuestatB'a" THEN xcambic=0: 


ycambio=2i 


coche*=arriba«: test* =-16: testy=2 




2030 


IF respuesta*="z" THEN xcambic=0: 


ycambia=-2 


: coche*=arr iba*: testx=-16: testy»-16 




2060 


IF respuesta*=". " THEN xcamblo=4: 


ycambio"=0i 


coche*=ladot: test>:«=B: testy~-B 




2070 


IF respuesta*=", " THEN xcambio*-4: ycambia=0 


iCOCl 1 


e«-lado*i test* =-36 s testy--6 




2079 


REM la barra de espacia para parar el coche 


2080 


IF respuesta*=" " THEN xcambio=0: 


ycambio=0 


2089 


REM solo se dibuja el coche si se ha movido 


2090 


IF xcambioOB OR ycambio<>0 THEN 


BOSUB 3000 


2100 


WEND 




2110 


RETURN 




2999 


REM se comproeba el color del pun 


ito sigul«n 


te a 


la posicion actual 




3000 


col or=TESTR (test* , testy) 
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3009 REM si no es el de ink el coche esta fuer 
3 do la pista 

3010 IF colorOO THEN golpe=l : SOUND 7,500 

3020 xcoche=>:cache+xcainbio:ycoche=ycache+ycambio 

3030 MOVE xcoche,ycache 

3040 PRINT coche*; 

3050 RETURN 



KJcrcicios 

1. Anada nuevos obstaculos a la pista de carreras, como balas dc paja 
amarillas o los restos calcinados de un coche. 

2. Cree una oruga verde, compuesta por varios caracteres, que se arrastre 
lentamente por la pantaila. 

3. Anada frutas rojas situadas aleatoriamente en la pantaila; cuando la 
oruga coma alguna de ellas, debe volverse azul y monrse. 

4. Programe el control de la oruga mediante el tedado, y ayudela a sal- 
varse de los peligros moviendola verticalmente para evitar las frutas. 
EI animal quedari a salvo cuando consiga alcanzar un paquete de hier- 

ba verde situado a la derecha de la pantaila. 



Graficas y diagramas 



En el capiiulo anterior nos nemos inieresado por la manera en que se puc- 
den emplear las t&nicas graficas en los juegos; pero, incluso en un mi- 
croordenador, podcmos enconirar muchas aplicaciones serias para estas 
lecnicas. En los ultimos anos han proliferado los programas para peque- 
fias empresas, programas que llegan a lener un alto nivel de sofisticaci6n. 
Muchos de ellos tienen como objeiivo primordial la presentation mas 
adecuada de series de datos para facilitar su rapida comprension. En lu- 
gar de proporcionar largas listas lienas de cifras, lo que hacen es estructu- 
rar todos esos daios en forma de graficas, diagramas de barras, diagra- 
mas de sect ores, etc., y de combinaciones de estos tipos. El color y las 
graficas de alta resolution hacen que sea mas sencillo reconocer las carac- 
leristicas esenciales o las tendencias en una serie de datos. El empleo del 
ordenador proporciona ademas la posibilidad de recalcular y dibujar con 
rapidez una nueva grafica, para ilustrar, por ejemplo, las consecuencias 
de una disminuci6n de los precios. Vamos a concentrarnos en este capitu- 
lo en las formas de programar la rcalizaci6n de las tres formas mas usua- 
les de representation de datos: graficas, diagramas (o histogramas) de ba- 
rras y diagramas de sectores. A estas alturas del libro es importante cono- 
cer ya algunas de las reglas basicas que deben respetarse cuando se desean 
desarrollar programas de aplicacion. 

En primer lugar, no hay que intentar escribir un programa como un to- 
do. Es mas facil desarrollar, corregir y mejorar un programa que ha sido 
escrito en mddutos, o sea, pequenas secciones de programa cada una de 
las cuales tiene un propdsito dcterminado, como, por ejemplo, dibujar los 
ejes en una grafica o colorear una barra en un diagrama de barras. 

En segundo lugar, un programa no cs nada flexible si esti ligado a valo- 
res especificos. Es posible que un programa para dibujar los ejes de una 
grafica funcione perfectamente, pero, si contlene lineas como 

100 MOVE 308,390 
110 DRAM 308, 120 
120 DRAW 630, 120 

49 
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sera dificil utilizarlo en olras circunstancias y, cuando haya que haccr otra 
grafica difcrcntc, habra que rcescribirlo complctamcntc. Es mcjor usar 
variables siempre que sea posible. Esto presenta varias ventajas: los nom- 
brcs dc variables pueden ser mas significativos que las tiras de numeros y 
el programa sera mas f&cil de adaptar o modificar at cabo de varios meses. 

Ademas, el empleo dc variables permite escribir un programa de uso ge- 
neral que proporcionc la grafica corrcspondicntc a una scric de datos; a 
la hora de utilizarlo, los linicos cambios a hacer seran los propios datos, 
sin nccesidad de reeditar el programa linea por linea para ponerlo de 
acuerdo con las nuevas circunstancias. 

Escribir un programa de esia manera requiere inicialmente mayor refle- 
xi6n y mas trabajo. Pcro merece la pena el esfuerzo suplementario, ya 
que con cllo se evita el escribir varios programas diferentes que realicen 
mas o menos la misma tarea. 



GRAFICAS DE PUNTOS Y LINEAS 

Cuando se va a realizar una grafica, la primera cucstion a resolver es la 
de la resolucion necesaria. En el Amstrad podemos elegir entre diferentes 
modos, con diferentes resoluciones horizontals y la misma vertical. En 
general, porsu alta resolucion, es mejor el modo 2 para dibujar una grafi- 
ca con muchos puntos. Pero, lamentablemente, en este modo solo se 
pueden utiiizar dos colores. Cuando el numero dc puntos a represeniar 
es inferior a 300, el modo 1 da un buen equilibrio entte resolucion y color: 
320 puntos en horizontal y cuatro colores. 

El Amstrad esta disenado de forma que el cambio de modo de pantalla 
no afecte al intcrvalo de variacion de las coordenadas. Por cllo, los pro- 
gramas que siguen funcionaran generalmcnte bien en cualquiera de los 
modos, a pesar de variar la resolucion. 

Vamos a comenzar por desarrollar un programa {muy corto). Por el 
momento dedicaremos a la grafica toda la pantalla, dejando el problema 
dc la rotulacion para mas tarde. Escribiremos el programa como una se- 
rie de subrutinas. Con esto tendremos mayor flexibilidad para poder di- 
bujar varias series de datos en la misma grafica, o dibujar varias graficas, 
sin neccsidad dc grandes cambios en el programa: 

10 MODE 1 

20 GOSUB 500 

30 GOSUB 800 

10 END 

499 REM dibujar las ej 






GRAnC-AS Y DIA0RAMA8 M 

300 ypunto-399 

510 xpunto-639 

520 MOVE t ypunto 

530 DRAW 0,0, 1 

540 DRAW «punto,0 

550 minx =200 

560 ■,-.,... -<mri" 

570 dif x=maxx-minx 

500 miny=100 

590 maxy*=1000 

600 dif y=ma>;y— miny 

610 puntox=di f x/xpunto 

620 puntoy^dlfy/ypunto 

690 RETURN 

799 REM leer puntos del data y dibujarlos 

S00 READ numdepuntos 

805 DIM x (numdepuntos) , y (numdepuntos) 

E10 FOR con-1 TO numdepuntos 

815 READ x (con) : xdib= (x (con) -minx ) /puntox 

820 READ y (con) :ydib=(y (con) -niny) /puntoy 

825 PLOT xdib,ydib 

830 NEXT 

990 RETURN 

1000 DATA 5,200,100,1000,200,1500,300,2500,600,4 

000, 1000 

En las lineas 500 a 540 se dibujan los ejes. EI origen se situa en la csquina 
inferior izquierda de la pantalla. Es importanie conocer los valores maxi- 
mo y minimo de los datos que hay que representar, de manera que se pue- 
da realizar la grafica con una escala adecuada para que quepa en la panla- 
lla. Estos valores se dan de manera explicita entre las lineas 550 a 600, 
aunque ya veremos mas tarde como el ordenador puede obtencr por sf 
mismo esios valores a partir de los daios a representar. Cuando el orde- 
nador conoce la diferencia entre el maximo y el minimo, puede calcular 
la longitud unit aria en el eje X y el eje Y para que quepan lodos los datos; 
esto es lo que hace en las lineas 610 y 620. El origen reprcscntara cntonccs 
el punto (min x, min y), y la esquina superior derecha de la pantalla el 
punto (max x, max y). Hnalmente, el programa lee los valores de las 
coordenadas x e y de los distintos datos, los reduce a escala y los dibuja 
en las lineas 800 a 830. Por el momento los datos estan ordenados si- 
guiendo el orden crecienie para la coordenada x. Ya veremos mas adelan- 
tc qu£ hay que hacer cuando los datos estan ordenados alealoriamcnte. 
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Puedc cjccutar varias veccs el programa, cambiando en cada caso los 
valorcs de max x y de max y para ver el cfecto que esto produce. Doblan- 
do el valor de max x el programa aplasia la grafica hacia la izquierda, al 
mismo liempo que pcrmite uiilizar mayores valores de x que los que figu- 
ran en los dalos. Doblando el valor de max y se produce un aplastamicn- 
io de la grafica hacia abajo. Cosas similares ocurren al cambiar min x 
y min y. Si le disgusta el hecho de que el origen represente (100, 200) en 
lugar de (0, 0), cambic los valores de min x y min y a 0. (Observe que esto 
hacc que en una gran zona de la pamalla no sc dibujen puntos.) Recuerde 
que los datos de la h'nea 1000 estan en determinado intervalo, y que, cam- 
biando los valores de min x, etc., puede perder puntos de la grafica. 

La ejecucion del programa revela algunos problemas, como que los 
puntos y la grafica son algo dihciles de apreciar. Algunos cambios permi- 
ten mejorar la situacion: 

10 MODE 1 
20 BQSUB 500 
30 GD5UB 800 
40 END 

499 REM dibujar los ojoo 

500 ypunto=399 
510 xpunto=639 
320 MOVE 0,ypunto 
530 DRAW 0,0, 1 
540 DRAW xpunto,0 
550 min>:=200 

560 ma>:K=400O 

570 di f K-maxx-Hiinx 

580 miny=100 

590 ma>:/=1000 

600 dif y=ma:iy-miny 

610 puntox*di + ;;/xpunto 
620 punfcay=di f y/ypunto 
690 RETURN 

799 REM leer puntos del data y dibujarlos 

800 READ numdepuntos 

805 DIM w <nutridepuntos) , y <numdepuntos) 

806 READ tint*0,ti*tal 

807 INK 0, tinta0 

808 INK l.tintal 
B09 PAPER 0:FEN I 

810 FOR con = l TO numdepuntos 





GnAi-1' \ Y U1AGKAMAS 53 


1 815 


READ x (con) i :<dib« (x <con)~minx) /punt dk 


829 


READ y (con) s ydib« (ytconJ-miny) /puntoy 


825 


PLOT xdib f ydib 


830 


NEXT 


990 


RETURN 


1000 DATA 5,0,24,200,100,1000,200,1500,300,2500, 


600, 


,4000, 1000 


Ahora, los 


colorcs que se utilizan en la gr&fica se especifican en ta scntcn- 


cia DATA. 


De ta misma forma podriamos especificar MODE, pero va* 


mos a mantenernos en el modo 1 . Podemos hacer mas visibles los puntos 


dihujando en su lugar una cruz o un cuadrado. Esto es muy sencillo de 


hacer utilizando movimienios relativos: 


10 MODE 1 


20 GOSUB 500 


30 GOSUB 800 


40 END 


499 


REM dibujar los ejes 


sea 


ypunto=399 


510 


xpunto=639 


520 


MOVE 0,ypunto 


530 


DRAW 0,0,1 


540 


DRAW xpunto,0 


55B 


minx-200 


560 


max x =4000 


570 


di f x^maxx-minx 


580 


nuny=100 


590 


max y= 1000 


600 


di -f y=maMy- miny 


610 


puntox=di-fx/xpunto 


620 


puntoy^dif y /ypunto 


690 


RETURN 


799 


REM leer punt as del data y dibujar los 


BOB 


READ numdepuntos 


805 


DIM x <numdepuntos> ,y (numdepuntos) 


806 


READ tinta0 f tintal 


807 


INK 0,tinta0 


808 


INK l,tintal 


809 


PAPER 0:PEN 1 


810 


cruzx=10 


. 


cruzy=10 
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811 FOR con»l TO numdepuntas 

815 READ x <con> :xdib«<x (con)-minx) /puntox 

820 READ y(con) :ydib=(y (con)-mlny) /puntoy 

825 PLOT xdib.ydib 

830 MOVER — cru?u , cruzy 

840 DRAWR 2»cruzx, -2*cruzy 

850 MOVER -2»cruzx,0 

860 DRAWR 2*cruzx,2*cruzy 

870 MOVER -cruzx.-cruzy 

880 NEXT 

990 RETURN 

1000 DATA 5,0,24,200,100,1000,200,1500,300,2500, 
600,40^0, 1000 

Los dalos para los brayos de la cruz se fijan mediante dos variables, en 
lugar de tornados de la senicncia DATA. Es mejor asi, ya que seran da- 
les que no cambiaran de una a otra ejecuci6n del programa. Puede modi- 
ficar las longitudes para que la cruz sea mayor o menor que la del ejem- 
plo; bastara con cambiar dos lineas. 

El programa mejorara si damos la opcion de unir los sucesivos puntos 
de la grafica. Para ello se uliliza la variable unir que, segun el valor que 
tome, hace que los puntos se dibujen unidos o sueltos: 

10 MODE 1 

20 GOSUB 500 

30 GOSUB 800 

40 END 

497 REM dlbujar los ejes 

500 ypunto=399 

510 xpunto»639 

520 MOVE 0,ypunto 

530 DRAW 0,0, 1 

540 DRAW xpunto,0 

550 minx=200 

5£>0 maxx=4000 

570 di*x=max:<-minx 

580 miny=100 

590 maKy-1000 

600 di 4 y=ma>iy-miny 

610 puntox=di -f x /x pun to 

620 puntoy=dif y/ypunto 

690 RETURN 
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799 


REM leer punto* del data 


y dibujarlos 




B0B 


READ numdepuntos 






805 


DIM x (numdepuntos) ,y (numdepuntos) 




806 


READ tinta0,tintal 






307 


INK 0,tint«0 






808 


INK l.tintal 






809 


PAPER 0.-PEN 1 






8112 


cruzx=10 






811 


cruzy=10 






ei2 


unir=l 






811 


FDR con*=l TO numdepuntos 




* 


815 


READ x (con) : xdib- (x (con) • 


-mi nx ) /puntox 




816 


x (con)*xdib 






820 


READ y (con) i ydib= (y (con) ■ 


-miny) /puntoy 




821 


y (con) =ydi b 






825 


PLOT xdib,ydib 






B30 


MOVER -cruzx,c-uzy 






840 


DRAWR 2*cruzx, -2*cruzy 






850 


MOVER -2*cruzx,0 






860 


DRAWR 2*cruzx,2*cruzy 






870 


MOVER -cruzK,-cruzy 






874 


REM si unir esta a 1 los 


puntos se van 


unien 


do 








875 


IF unir=l AND con>l THEN 


DRAW x (con-1) 


, y (con 


-1) 








8B0 


NEXT 






990 


RETURN 






1000 DATft 5,0,24,200,100,1000,200,1300,300 


, 2300, 


600, 


4000, 1000 






EI mayor defecto de este programa cs la falta de rotulacion. Como el gri- 


fico esta pegado a la esquina inferior izquierda de la pantalla, no hay sitio 


para ella. Puede parecer que esto obliga a 


tnodificaciones im 


portantes 


del programa. De hecho, el uso de variables 


y la capacidad del Amsirad 


para cambiar el origen tiacen que sea muy sencillo mover los 


cjcs: 


10 NODE 1 






20 BDSUB 500 






30 SOSUB 800 






40 END 






499 


REM dibujar los ejes 






500 


o>:«100:oy=50 
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305 ORIGIN OK,oy 

510 ypunto»399-oy 
515 xpunta B 639-ox 
520 MOVE 0,ypunto 
530 DRAW 0,0 t 1 

540 DRAW xpunto,0 

550 minx =200 
560 max* =4000 

570 dif x=maxx-minx 
580 mlny=100 

590 max y« 1000 
600 dif y=maxy-miny 
610 puntox*di-fx/Kpunto 
620 puntoy=dif y/ypunto 
690 RETURN 

799 REM leer puntos del data y dibujarlos 

800 READ numdepuntos 

303 DIM x (numdepuntos) , y (numdepuntos) 
906 READ tinta0,tintal 

807 INK 0,tinta0 

808 INK l,tint*l 

809 PAPER 0:PEN 1 
S10 cru=«-10 

811 cruzy«10 

812 unir=l 

814 FOR con=l TO numdepuntos 

815 READ x (con) rxdib=(x (con)-minx) /puntox 

816 w(con>=xdih 

820 READ y (con) :ydib=(y (con)-miny) /puntay 

821 y(con)=ydib 
825 PLOT xdib.ydib 
830 MOVER -cruzx,cruzy 
640 DRAWR 2*cruzx, -2*cru?y 
850 MOVER -2*cruzx,0 

860 DRAWR 2»cruzx,2*cruzy 
370 MOVER -cruzx,-cruzy 

874 REM si unir esta a 1 Ids puntos se van unien 
do 

875 IF unir«l AND con>l THEN DRAW x (con-1 ) ,y(con 

-1) 

QQ0 NEXT 
990 RETURN 

1000 DATA 5,0,24,200,100,1000,200,1500,300,2500, 
600,4000, 1000 
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Hemos cambiado las aniiguas llncas 500 y 510, puesto que ya no utiliza- 
mos loda la pantalla para la grafica. El rcslo del piugrama puede conli- 
nuar igual; las lineas y punios se dibujaran ahora en relation al nuevo ori- 
gen, como comprobara ejecutando el programa. Si cambia los valores dc 
ox y oy, vera como no cambia el aspecto de la curva al trasladar el origen, 
salvo en lo que se refiere a su tamaflo. 

Ahora lencraos sitio para poncr marcas en los ejes y escribir los corrcs- 
pondientes r6tulos; pero esto no se puede hacer de manera totalmenie 
automatica. Seguramente no tendremos problemas con el eje y, ya que 
parece que, al elegir el origen, hemos dejado sitio suficiente para los 
rotulos. 

Por otro lado, aunque tengamos sitio en el eje x para 10 divisioncs, na- 
da impide que consideremos mas conveniente hacer un numero menor, 
como, por ejemplo, 5 divisiones. El numero maximo de divisioncs esta 
sin embargo limilado por dos factores: la resoluci6n del modo que se cm- 
plee y la anchura de los caracteres que vayan a escribirse debajo de las 
marcas. Lo que el ordenador puede hacer cs calcular en qu6 casos vamo& 
a obtener rotulos que se solapen unos con otros; pero no puede elegir por 
si mismo un intervalo menor que sea conveniente. Los numeros que re- 
presentan distancias adecuadas, como 0.5, 10,20,25, 100, etc., dependen 
mas bien de nuestros habitos y de las circunstancias. Vamos a hacer que 
seamos nosotros qnienes elijamos los intervalos y que el ordenador recha- 
ce los valores que no sean razonables. El etiquetado se divide en dos par- 
tes: poner las marcas y escribir los rotulos. La primera action puede no 
scr correcta si conduce a que los rotulos se solapen. Hay que informar 
al ordenador de la maxima longitud de los rdtulos que deben escribirse, 
para que pueda calcular si podra o no colocarlos uno tras otro debajo del 
ejeX: 

503 REM se oculta la grafica hasta que este CDmp 
leta 

504 INK B,24iTNK 1,34 

628 REM numero de marcas en los ejes x e y 

629 REM sin incluir la del origen 

630 xcantidad=5 
640 ycantidad=10 

649 REM distancia grafica ent^e las marcas 

650 xancho=TNT(;:punta/xcanti dad) 
660 yalto=INT(ypunto/ycantidad) 

668 REM cantidad maxima de caracteres de los num 
eros del eje x 
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669 REM »sto tendra que cambiarlo par* adaptarlo 
a sub propi os datow 

670 ma>:xcadena=4 

673 REM tamano de loe caracteres en el moda 1 (e 
n numero de puntos) 

674 REM si ancho debe cambiar a 32 para el moda 

y a 8 para el modo 2 

675 charancho=16 

676 charalto=16 

679 REM se calcula la maxima longltud de la cade 
na en puntos gra^icos 

690 gra-fxcadena-charancho-frmaxxcadena 

6EJ8 REM no se rotulan los ejes cuando habria que 

poner nuneros demasiado grandes 
£*99 REM o cuando la distancia entre marcas cs me 
nor que ©1 tamano de un caracter 

690 IF x anchor gra-f Kcadena OR >:ancho<charancho TH 
EN RETURN 

691 REM lo misffio para el eje y 

692 max ycadcr.a=4 

694 gra-f ycadena=char3nchc*maxycadena 

696 IF ox<graf ycadena OR yal to<charal to THEN RET 

URN 

699 REM longitud de las marcas de los ejes 

700 xmar-ca n 6 

702 ymarca=B 

703 REM el rotulo de cada marca sera de un valor 
Nvalor mas alto que el anterior 

704 >:valor=di fx/x cant i dad 

706 TAG 

707 REM se avanza acantidad veces para obtener e 

1 numero de marcas que corresponde 
70Q FOR con«0 TO *c**ntid#d 

710 MOVE 0,0 

711 REM avance en el eje hasta en comienzo de la 
marca 

712 MOVE xancho*con,0 

713 REM dibwjo de la marca 

714 DRAWR 0,->:marca 

728 NEXT 

729 REM lo mt smo para el eje y 

730 yvalor=di* y/ yean ti dad 
732 FOR con=0 TD ycantidad 
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734 MOVE 0,0 

736 MOVER 0,yalto*con 

738 DRAWR ~ymarca,0 

7S4 NEXT 

770 RETURN 

Si no le gusta el tipo de marcas que hemos elegido, puede usted programar 
el que desee. Para ello basta con que modifique las lineas correspon- 

dientes. 

En lugar de volver a calcular las posicioncs dc las marcas en el momen- 

to de poner los r6tulos, lo mejor es incluir una rutina que ponga el texlo 
al mismo tiempo que las marcas: 

708 FOR con=0 TO xcantidad 

710 MOVE 0,0 

711 REM avarice en el eje hasta en comienzo de la 

marc a 

712 MOVE xancho*con,0 

713 REM dtbujo de la marca 

714 DRAWR 0,-nmarcfl 

715 REM posicion para escribir el rotulo de la m 

area 

716 MOVER -charancho/2,->!marca 
710 numero*=STR* (minx*con*>:valor) 

719 REM *e trunca el numero si es demasiado larg 

o 

720 numero»«MID*<nunero*,2,maxxc«dena) 

722 longitud=LEN<nuinero*0 

723 REM se suprime el punto decimal si es el ult 

imo caracter 

724 IF MID*<numero«,longitud>="." THEN numero*=M 

I D* (numer d*, 1 , 1 ongi tud-1 1 
726 PRINT numero** 

728 NEXT 

729 REM lo mismo para el eje y 

730 yvalar=di-f y/ycantidad 

732 FOR con=0 TO ycantidad 

734 MOVE 0,0 

736 MOVER 0,yalto*con 

738 DRAWR -ymarca,0 

740 MOVER -graf ycadena, cnaral to/2 

742 numero* ra STR*<miny+con*yvalor) 

744 numero»«MID« (numero*, 2, max ycadena) 
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746 longitud-LEN(numerot) 

748 IF MID*(numero*,longitud>="." THEN num*ro*=M 
lD*(numero», 1, iongitud-1) 

749 REM nto es para alinear 1 os numsros junto a 
las raarcas 

730 IF LEN<numero*Xm«yc*d.n* THEN nu« e ro*=STRI 

NB»<maxycadena-LEN<numero»>,'' ")+numero* 
732 PRINT nuflierof; 

754 NEXT 
790 RETURN 

Tambien podemos poner un r6tulo en cada uno de los ejes y escribir un 
Ktulo general de la grafica. Para ello el origen debe estar clegido de ma- 
ncra que quede sitio para todo csto. 

755 REM rotulos da los ejes 

756 :<rotulo*="nufnero de ratones" 

73B yratulo*="grarnos de queso roidos" 

759 REM longitud del rotulo en puntos graficos 

760 :<rotulolon=LEN(xrotulo*>#charancho 

761 REM espacio antes del rotulo, para que quede 
centrado 

762 xrotulocom- (xpunto-xrotul a I on J /2 

763 REM colocarse a la altura conveniente debajo 
del eje x para escribir el rotulo 

764 MOVE xrotulocam,-2*charaltQ 

766 PRINT xrotulot; 

767 REM la mi swno para, «1 eje y 

763 yrotulolon=LEN(yratulo*) *charslto 

770 yrotulocom* <ypunto+yrotulolon>/2 

771 REM hay que escribir separadarcente cada letr 
a del rotulo, ya que va en vertical 

772 FOR Con=1 TD LETN (yrotul o»> 

73 REM se e*trae un caracter del rotulo 
774 char»=MID*{yrotulo*,con, I) 

773 REM ponerse convenientemente a la izquierda 
para imprimir el caracter 

776 MOVE -charancho#(maKycad©na+2>,yrotuloco(ii-ch 
aralto#(con-l) 

778 PRINT char*; 

780 NEXT 

790 RETURN 
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Todavfa no esti complcto cl programa, ya que solo puedc trabajar con 
datos previamente ordenados. En su forma actual pucdc scr util para 
muchas cosas, como por ejemplo para mediciones de la precipitaci6n dc 
Uuvia en un periodo dc tiempo, o el estado de su cuenta bancaria mes a 
mes (aunque esio puede obligarle a poner un eje negativo). Cuando los 
datos no estan ordenados de esta manera, hay que hacer que el ordenador 
los vaya leyendo y reordenando en caso necesario. Para eilo se almacc- 
nan los datos en un vector y se procede a su clasificaci6n: 

10 MODE 1 
20 GOSUB 500 
30 GDSUB SOB 
40 END 

499 REM dibujar los ejes 

500 ox=100:oy=50 
505 ORIGIN ox,oy 
510 ypunto=399-oy 
515 xpuntD=639-ox 
520 MOVE 0,ypunto 
530 DRAW 0,0, 1 
540 DRAW xpunto,0 
550 minx=200 

560 max x =4000 

570 dif x=maxx-minx 

500 miny~100 

590 max y= 1000 

600 di-f y=maxy-miny 

610 puntox=dif x/xpunto 

620 puntoy=dif y/ypunto 

690 RETURN 

799 REM leer puntos del data y dibujarlos 

800 READ numdepuntos 

805 DIM x (numdepuntos) ,y (nundepuntos) 

806 READ tinta0,tintal 

807 INK 0,tinta0 
303 INK l,tintai 

809 PAPER 0:PEN 1 

810 cruzx=10 

811 cruzy=10 

812 unir=l 

814 FOR con=l TO numdepuntos 

813 READ x (con) :xdib*(x (con)-minx) /puntox 
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016 x (con)-xdib 

820 READ ytcon) :ydib=(y<con>-miny>/puntoy 
B2t y(con)»ydib 
B2S NEXT 

829 REM ordnnar la matrix * 

830 FOR con=2 TO numdepuntos 

S40 FOR valor=con TO 2 STEP -1 

850 IF x(valor)<x(valor-l) THEN GOSUB 1500 ELSE 
valor«2 

860 NEXT 
B70 NEXT 

880 FOR con=l TO numdepuntos 

890 PLOT x (con) ,y (con) 

900 MOVER -cruzx,cruzy 

910 DRAWR 2*cru2K,-2*cruzy 

920 MOVER -2*cruzx,0 

930 DRAWR 2*cruzx,2*cruzy 

940 MOVER -cruax.-cruzy 

950 REM si unir esta a 1 las puntos se van un 
iendo 

960 IF unir=l AND con>l THEN DRAW x Ccon-1 > , y (con 

-1) 

970 NEXT 

990 RETURN 

999 los datos estan ahora desordenados 

1000 DATA 5,0,24, 1000,200, 4000, 1000,200, 100,2500 
,600, 1500,300 

1499 REM cafnbio on las matrices pmra. que la ccor 
denada x mas baja vaya primero 

1500 tempx=« (valor) : temp y=y (val or > 

1510 x (valor>=x (valor-1) :y (valor )=y (val or-1) 
1520 x (valor-1 )=tempx:y (valor-1 ) =tempy 
1530 RETURN 



EI m&odo de clasificaci6n que se ha utilizado es el de insercidn. Se orde 
nan las dos primeras coordenadas x; luego se coloca la tercera en su posi 
ci6n corrects respecto de las otras dos. El proceso se repile con la cuarU 
y asf sucesivamente, hasta que todas quedan colocadas de menor a mayor. 
La clasificaci6n de datos numericos o literates es uno de los temas ml* 
importantes en informatica. Es posible que usted encuentre muy lento el 
proccdimiento anterior si debe ordenar varios centenares de datos, y que 
prefiera otro metodo. El me'todo deordenaci6n de burbuja es muy utili- 
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zado cuando sc licnen datos que ya est an algo ordenados. Sin embargo, 
para clasificaci6n de grandes cantidades de datos, la unica forma de con- 
cguir mctixlos rapidos es programailos en codigu de maquina. 

La ventaja de clasificar los datos es que al mismo tiempo se pueden cal- 
cular los valores de min x, min y, max x y max y. 

El programa ha quedado con ciertos puntos debiles que usted podra 
rcctificar en los ejercicios que siguen. Sin embargo, es adecuado para 
bastantcs situacioncs. 



Kjereicios 

1. iQue cambios hay que hacer para que el programa se pucda ejecutar 
en los modos o 2? ^Como reemplazar por variables los valores que 
dependen especificamente del modo de pantalla? 

2. En el programa, el eje Y se dibuja siempre a la izquierda y el eje X aba- 
jo. Modifique el programa para que admita valores positivos y negati- 
vos de x y de y y para que trace los ejes por el punto (0, 0). 

3. Modifique el programa para que admita simultaneamente varios con- 
juntos de datos y los represente con colores diferentes. Hagalo sin re- 
petir secciones del programa; llame como subrutinas a las partes del 

actual programa que necesite. 

4. Modifique el programa para que dibuje dos graficas con escalas dife- 
rentes en las dos mitades superior e inferior de la pantalla. (Necesitara 
cambiar el valor de los limites de la variable y y cambiar dos veces el 
origen.) 

5. Mejore el programa para que los datos puedan ser almacenados y lei- 
dos de un fichero. 



DIAGRAM AS DE BARRAS 

Ahora que disponemos de un programa para realizar graficas, nos resul- 
tara bastante sencillo dibujar diagramas de barras, ya que hemos resuelto 
en la seccion anterior muchos de los problemas que se presentan. E! pro- 
ceso se simplifica bastante al tener que ocuparse solo de la coordenada Y; 
en el otro eje es muy facil calcular la anchura de las barras. Ademas, los 
datos ya estan ordenados, con lo que no hay que atender a su clasifica- 
ci6n. Las semejanzas con el programa precedente ponen de relieve las 
ventajas del uso sistematico de variables y subrutinas. 
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10 MODE 1 
20 BOSUB 500 
3B 60SUB 800 
40 END 

499 REM dibujar los ejes 

500 o>: = 100:oy=50 

503 REM se oculta la grafica hasta que este camp 
let a 

504 INK 0,24: INK 1,24 

505 ORIGIN ox.oy 
510 ypunto=399-oy 
515 >ipunto=639-ox 
32:0 MOVE 0,ypunto 
530 DRAW 0,0,1 
540 DRAW xpunto,0 
5B0 miny=100 

590 max y~ 1000 

600 d if ymftxy mi r.y 

620 puntoy=di* y/ypunto 

628 REM numero de marcasj esta vez solo en el ej 
e y 

629 REM xcantidad es el numero de barras 

63ffl READ numerodebarras: xcantidad=numerodebarr as 

640 ycantidad^V 

64? REM distancia grafica entre las marcas 

650 >iancho»INT txpunta/xcantidad) 

660 yal to=INT (ypunto/ycantidad) 

673 REM tamano de los caracteres en el modo 1 <e 
n numero de puntos) 

674 REM el ancho debe cambiar a 32 para el modo 
B y a B para el modo 2 

675 charancho=16 

676 charalto=*16 
692 maxycadena=4 

694 graf ycadena=charancho*ma>:ycadena 

696 IT on <graf ycsdona OR yalto^charalto THEN RET 

URN • 

699 REM longitud de las marcas de los ejes 

700 xmarca=6 
702 ymarca^S 
706 TAG 

728 REM el rotulo de cada marca sera de un valor 
yvalor mas alto que el anterior 
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729 REM %m avmzA ycantidad veces para obtener • 
1 numero de marcdft que corresponde 

730 yvalor»dHy/ycantidad 
732 FOR can^ffl TO ycantidad 
734 MOVE 0,0 

736 MOVER 0,yalto#con 

738 DRAWR ~ymarca,0 

740 MOVER -graf ycadena, charalto/2 

742 numero*=STR* (miny+ccn*yvalor) 

744 numera*=MID* (numero*, 2 F maxycadena) 

746 longitud-LEN (numerot) 

748 IF MID* (numero*, longitud)=". " THEN numero*=M 
ID* (numero*, 1 , longitud-l> 

749 REM esto es para al inear los numeros junto a 
las marcas 

750 IF LEN<numero*Krtiaxycadena THEN numero*=*STRI 
NG* (maxycadena-LEN (numero*) f " ")+namero* 

752 PRINT numerolj 

754 NEXT 

755 REM rotulos de los ejes 

756 xrDtulo*="numero de ratones" 

758 yrotulo*="gramos de queso roidos" 

759 REM longitud del rotalo en puntoi graficos 

760 xrotulolon=LEN(:<rotuio*>*charancho 

761 REM espacio antes del rotulo, para que quede 
cent r ado 

762 Hrotulocom^ (xpunta-tfrotulolan) /2 

763 REM col acarsg a 1 * ^Itura convonionto dobajo 
del eje x para escribir el rotulo 

764 MOVE xrotulocom,-2*charalto 

766 PRINT ;;rotulo$; 

767 REM lo mismo para el eje y 

768 yrotulolon^LENC/rotulc*) *charalto 

770 yr otulocom= (ypunto+yrotul olon) /2 

771 REM hay que escribir separadamente cada letr 
a dal ratulc, /a que va en vertical 

772 FOR con=l TO LEMIyratulo*) 

773 REM se entrae un caracter del rotulo 

774 char*^MID*(yrotalo*,con, II 

775 REM ponerse convenientemente a la Irquierda 
para imprimi r *1 caracter 

776 MOVE -charanchoMmaxycadena+2) , yrotul ocort-ch 
araltoMcon-1) 
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778 PRINT char«( 
7B0 NEXT 
790 RETURN 

799 REM leer puntos del data y dibujar las barra 
s 

800 DIM y (numerodebarras) 

806 READ tintaO.tintal 

807 INK 0,tint.a0 
80B INK l,tintal 
809 PAPER 0:PEN 1 

814 FDR con=l TO numerodebarras 

815 READ y 

816 x(con)-ndib 

819 REM altura de la barra calculada a la esc 
Ala conveniente 

820 y (con) =<y-miny) /puntoy 
823 NEXT 

829 REM reducir la anchura do 1 ao barras para do 
jar espacio entre ellas 

830 barraancho»xancho-4 

840 FOR con=l TO numerodebarras 

850 MOVE 0,0 

860 DPAUJR 7i., ; . ,1 

870 DPAWR barraancho,0 

880 DPAWR 0,~y<can> 

390 ox=o>:+xancho 

B99 REM desplazamiento del or i gen para dibujar 1 

a barra siguiente 

900 ORIGIN OK,oy 

910 NEXT 

990 RETURN 

999 REM ahora solo se neceaita la altura de las 

barras; la anchura es flja 

1000 DATA 10,0,24,350,190,760,440,990,124,846,54 

5,666,222 



La subrutina 800 dibuja cada barra mcdiantc una scric dc movimicnto 
referidos al otigen. Desplazando este origen una distancia fija cada ve 
que se dibuja una barra, se puede utilizar un bucle para dibujar todas la 
barras. 

EI dibujo queda mejor si se rellenan las barras con diferentes colores 
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Lament ablemente, cl Amslrud C'1'C664 ' no licne un eomando que relic- 
tie con un color un area dctcrminada. Hay que rcllenar las barras dibu- 
jando lineas scncillas de la mancra mas rapida posible. En el ultimo capi- 
lulo veremos algunos procedimientos para acelerar un programa, pero ya 
podemos emplear aqui algunos de esos conocimientos: 

830 barraancho=xancho~4 

833 color =2 

840 FOR con=l TO numerodebarras 

844 REM se alterna el color de las barras 

845 IF color=3 THEN color=2 ELSE color»3 

848 REM las barras se rellenan mas rapidamente t 
omando un pasD 

849 REM adecuada a la resolucion dal modo de pan 
talla, para no repetir lineas 

850 FOR barra=0 TO barraancho STEP charancha/8 
B60 MOVE 0+barra,0 

070 DRAWR 0,y<con> , color 

B80 NEXT 

890 OK=ox+xancho 

899 REM desplazamiento del origen para dibujar 1 
a siguiente barra 

900 ORIGIN ox,oy 
910 NEXT 

990 RETURN 

* 

Las lineas se dibujan verticalmente en lugar de horizontalmente, ya que 
■nuchas barras scran mas alias que anchas y sc reduce asf cl nuraero dc 
Ifneas a dibujar. Pero rellenados de color realmente rapidos sdlo pueden 
realizarse con rutinas en c6digo de maquina. 

Se obtiene una interesante variaci6n sobre los diagramas de barras di- 
bujando 6stas con aspecto sdlido, lo que da a la figura un aire tridimen- 
sional: 

830 barraancho=:cancho-4 

B31 REM barralado es la ancura del lateral de la 

barra 
QS2 REM barrasuple eb la al tura sup 1 ementar i a de 

la parte trasera de la barra sobre la delanter* 



' Los modelos posieriorci incluyen la order FILL ("rcllenar") 
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833 REM modi fi que los valores segun qui era que a 

parezcan mas o menos prof undas 

B34 barralada=barraanchQ/4:barrasuple=barralado 

835 color=2 

940 FOR con-1 TO numorodobarrac 

844 REM se alterna el color de las barras 

845 IF color*3 THEN colore ELSE color=3 
046 barr asuplecon^B 

948 REM tambien hay que rellenar el lateral de 1 

a harra 

B49 REM luego el ancho de la barra es barraancho 

+barral ado 

S50 FOR barra«0 TO barraancho+barralado STEP cha 

rancho/8 

859 REM el fin de la linea se dibuja en otro col 

or como ocurrira con todas las aristas de la bar 

r^ 

B60 PLOT O+barra.,0,1 

869 REM la linea hasta arriba de la barra 

970 DRAWR 0, y <con) +barrasuplecon» color 

871 REM el otro final de la linea tambien en col 

or dif erente 

B72 TLOTR 0,0, 1 

B73 REM la linea siguiente debe ser un poco mas 

alt a 

874 REM y asi hasta alcanzar la parte de atras d 

e la barra 

975 bArraciupl econ^bArracuplecon+charancho/B: IF b 

arrasuplecon>barrasuple THEN barrasuplecon=barto 

P 

B80 NEXT 

881 REM las aristas de la barra van en otro nolo 
r 

882 y=y (con) : MOVE 0,0 

883 DRAWR 0,y, 1 

BS4 DRAWR barraancho, 
BB5 DRAWR 0,-y 

886 MOVER f y 

887 DRAWR barralado, barrasuple 

888 DRAWR 0, -y-barrasuple 
890 ox a ox+xancho 

899 REM desplazamiento del origen para dibujar 1 

a slgui ente barra 
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900 ORIGIN 
910 NEXT 
990 RETURN 



ox.oy 



Ejercicios 

1. Modifique el programa para que funcione correctamente en modo 
y en modo 2. 

2. Modifique cl programa para que las barras del diagrama scan horizon- 
tales en lugar de verticales. 

3. Cambie el diagrama en 3D para que se pueda representar una sucesidn 
de diagramas, cada uno al lado del anterior. 



DIAGRAMAS DE SECTORES 

La realizaci6n de un diagrama de sectores (o sea, un histograma consis- 
tente en un circulo o un pequefio cilindro dividido en sectores de tamaflo 
proporcional a la magnitud de los datos) tienc poco cn comiin con el dibu- 
jo de graficas y de diagramas de barras. Por eso vamos a disefiar un pro- 
grama completamente nuevo, aunque conservando algunas caracteristicas 
generales de los anteriores, como el empleo sistematico de variables y su- 
brutinas. Para este diseflo cs importante la resoluci6n, puesto que necesi- 
lamos dibujar una circunferencia con bastantc cxactitud. Pero tambicn 
lo es el color, asf que vamos a tomar una decisidn de compromiso y a ele- 
gir el modo 1 . 

El programa siguiente construye uno de estos diagramas, dividiendo un 
circulo en sectores de tamafio adecuado, cada uno con su contorno colo- 
reado: 



10 MODE 1 

20 BOSUB 1000 

30 GOSUB 2000 

40 8CSUB 3000 

50 END 

997 REM leer del 

y el radio 
1000 READ centrox,centroy 
1010 READ radio 
1020 READ numdeval 
1030 DIM valor <numdeval ) , angulotnumdeval ) 



DATA las caordenadas del centro 
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1039 REM sunar todos Iob valores para calcular 1 
at; di vi si ones del circal a 

1040 total v*l or =0 

1030 FOR con-1 TD numdeval 

106a READ valor (can) 

1070 totalvaior=tatalvalor+valar (con) 

1080 NEXT 

1090 RETURN 

1100 DATA 200,200,120,4,1,2,3,4 

1999 REM calculo del angulo d© cada Mctor 

2000 FOR COM*! TO numdeval 

2010 attgu:.o<con!=2*PI#valor (con) /total valor 

2020 NEXT 

2030 RETURN 

3000 REM canbiaremos esto enseguida 

7012 nomangulo^O 

3020 incremento=PI/60 
3C70 color-! 

3039 REM para modo hacer numdecol=*15 'sin cont 
ar el color del -fondo) 

3040 numdecol =3 

3050 FOR con*=l TD numdeval 

305? REM angulo en que termina el sector 

3060 f 1 nangul o=comangul o+angul o ( con ) 

3069 REM color del sector 

3070 color=l+ Ccolor + DMOD numdecol 

3079 REM a&Qgurarse de que el primero y el ultim 

o cectcr con de coZoroc di ( orentes 

30B0 IF con=numdeval AND numdeval MOD numdecol=l 

THEN color«l-+ (colnr + UMOD numdecol 
3090 MOVE centrox,centroy:DRAW centrox+radi o*5IN 
<comangulo) , centroy+r adlo*C0S (comangulo) , color 

3099 REM dibujo del sector 

3100 FOR angulo^comangulo TO finangulo STEP incr 
emento 

3110 DRAW centro*+radio*SlN(angul3) » centroy+radi 

c*C0S (angulo) 

3120 NEXT 

3129 REM angul o de comienzo del nueva sector 

3!30 comangulo=f inangulo 

3140 NEXT 

3150 RETURN 
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La subrutina 1000 Ice dc llneas DATA los valores que hay que represcntar 
y calcula su suma. La proporcibn cntre un valor y la suma total es lo que 
da el angulo que ocupa el correspondiente sector; este dngulo se calcula 
con la rutina 2000. La rutina 3000 dibuja cada sector con su color. 

Al ejecutar el programa vera que, si el radio del diagrama es grande, 
el dibujo es lento. Algo se puede ganar en velocidad si se toma conio nuc- 
vo origen e! centro del circulo: 

3000 ORIGIN centrox,centray 

3090 MOVE 0.0:DRAW radio*SIN (comangulo) ,radio*CO 

S (comangulo) , color 

3099 REM didujo del sector 

3100 FOR angulo^comangulo TO finangulo STEP Incr 
emento 

3110 DRAW radio*SIN(angulo> , radio*CDS (angul o) 
3120 NEXT 

Los calculus mas largos son, no obstante, los de los senos y cosenos, y 
esto, a diferencia de lo que ocurre con otros ciSlculos, no se puede raejorar 
con el empleo de numeros enteros. Vamos a modificar algunas cosas pa- 
ra minimizar estos cilculos; la idea puede servir para objeiivos distintos 
del que nos ocupa. Ahora s61o se calcula un seno y un coseno: 

2000 radval=radio#4 

2005 FOR con=l TO numdeval 

2010 angul o (con ) *radval *val or (con ) /total val or 

2020 NEXT 

2030 RETURN 

3000 ORIGIN centrox,centroy 

3009 REM al emplear enteros en el bucle aumenta 
la velocidad 

3010 DEF1NT c >. 
3030 col or- 1 

3035 elseno*SIN(2*PI/radval ) : el coseno=C0S (2*PI /r 

adval) 

3037 xl«radio:yl=0 

3039 REM para modo hacer numdecol=15 (sin cont 
ar- el color del -fondo) 

3040 numdecol=3 

3050 FDR con=l TO numdeval 

3069 REM color del sector 

3070 color=l+(color*l)MOD numdecol 



72 TfiCNICAS DE prooramaci6n de grApicos en el Amstrad 

3079 REM asegurarse de que el primero y el ultim 
o sector son tie calores diferentes 

3080 IF can*=numdeval AND numdeval MOD numdecol"l 
THEN color=l+(color+l )MOD numdecol 

3090 REM 

3099 REM dibujo del sector 

3100 FDR conl=l TO angulo(con) 
3110 x=x l*elcoseno-yl*el seno 
3112 y=xl*el5eno+yl»elcoseno 
3114 PLOT x,y, color 

31 16 x l*x : y l*y 
3120 NEXT 

3129 REM tra:ar la lined hasta el centra para es 
te sector 

3130 MOVE 0,3: DRAM x,y 
3140 NEXT 

3150 RETURN 



Estos diagramas de sectores son mas cxpresivos cuando los sectores se re- 
llenan de color; la forma mas sencilla de hacerlo es dibujar radios de colo- 
res. Para ello, se puede modiiicar el programa que teniamos al principio 
con las lineas que siguen: 



3020 incremento=PI/500 

3109 REM esta vez se dibujan lineas desde el cen 
trb 

3110 MOVE 0,a:DRAW radlo*SIN<angulo> ,radlo*COS<a 
ngulo) 

Ahora es inciuso m£s !ento, pero hay que darse cuenta de que, si no se 
miium mucho los radios, hay puntos que quedan sin tocar y permanecen 
del color del fondo. Una idea para dar mas velocidad sciia colored! s61o 
uno de cada dos sectores, dejando los otros del color del fondo. Se gana- 
ra aun mas liempo si se elige cuidadosamente el orden de los sectores para 
que los que se rellenan sean los mas pequeflos. Entre otros defectos, esta 
soluci6n tiene el incoveniente de que obliga a rotular los sectores para que 
el diagrams no sea confuso. 

Se puede aumentar la rapidez del programa teniendo almacenadas las 
coordenadas de los puntos de la circunferencia en un par de vectores, para 
no tener que calcularlos en el momento de realizar el diagrama. Si el pro- 
grama esta escaso de memoria es una mala soluci6n, ya que se requieren 
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dos vectores bastante largos. £sia cs la solucidn que adoptamos con el 


siguiente programa altcrnalivo: 


10 MODE 1 


20 GOSUB 1000 


30 60SUB 2(300 


40 DOSUB 3000 


50 END 


999 REM nuchas variables pueden ser enteras es 


to at 


impn'a la velocidad 


1000 


DEFINT a,c,n,r ,v 


1005 


READ centrox,centroy 


1010 


READ radio 


1020 


READ numdeval 


1030 


DIM valor (numdeval ) , angul o< numdeval ) 


1039 


REM sumar todos los valores para calcular 1 


as divisiones del circulo 


1040 


total valor»B 


1050 


FOR con=l TO numdeval 


1060 


READ valor (con) 


1073 


total valor=totalval or + valor (con) 


1080 


NEXT 


1090 


RETURN 


110B 


DATA 200,200,120,4,1,2,3,4 


199B 


REM radval in-fluye en 1 a velocidad del dibu 


jo y 


en la densidad del rellenado 


1999 


REM si se toma radio*3 raejora la velocidad 


atunque quedan puntos sin rellenar 


2000 


radval «r ad io* 10 


2001 


totangulo=0 


2005 


FOR con=l TO numdeval 


2013 


angulo(con)=radval*valor (con) /total valor 


2015 


totangulo=tatangulo+angulo<con) 


2023 


NEXT 


203,0 


RETURN 


312)00 


ORIBIN centrox,centroy 


3010 


DEFINT c 


3020 


contangulo^© 


3030 


color=l 


3033 


REM solo ae necesita calcular un seno y un 


coseno par ester metudo 
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3034 REM Mto da mas velocidad 

3035 el seno=SIN <2»PI /radval ) : el coseno=COS (2*PI /r 
■dv*l) 

3036 xl-radio:yl=0 

3037 REM calculo de las coordenadas de los punto 
s de la circun-f erenci a 

3038 LOCATE 5,10:PRINT "espere, par favor" :GOSUB 
10001 CUS 

3039 REM para modo hacer numdecol=15 (sin cont 
ar el color del -fondo) 

3040 numdecol =3 

3050 FOR con=l TO numdeval 

3069 REM color del sector 

3070 color=l+<color+l)MOD numdecol 

3079 REM asegurarse de que el prxmero y el ultim 
o sector son de colores di-ferentes 

3080 IF con=numdeval AND numdeval MOD numdecol «l 

THEN col or = l+ <col or + : J MOD numdecol 
3090 REM 

3099 REM dibujo del sector 

3100 FOR conl*contangulo TO contangulo+angulo Ceo 
n) 

3114 MOVE 0,0:DRAW x (coni ) ,y fcont ), color 
3120 NEXT 

3124 REM posicion inlcial del siguiente sector 

3125 contangulo-contarigula-t-angulo<con) 
3140 NEXT 

33 50 RETURN 

3997 REM normalmente convendra realizar este cal 
culo en los programas largos 

3998 REM «n algan momento del prugrama en el que 
la espera 

3999 REM no resulte exceai vamente larga 

4000 DIM x (totangulo) ,y (totangula) 
4010 FOR con=l TO totangulo 

4020 v=m l*olcoseno-yl*cl seno 

4030 y«xl*etseno-*yl*elcoseno 

4040 x (con)=x 

4050 y<con>*y 

4060 xl=x : yl~y 

4070 NEXT 

4080 RETURN 
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Observara que es diffcil rcllcnar complelamentc una supcrficie con un 
color. La linica forma dc hacerlo bien es dibujar uno por uno los puntos 
individuales, como veremos en el capitulo siguiente. 



Kjercicios 

1. Modifique el programa que dibuja diagramas de sectores de forma que 
ademas los rotule. 

2. Modifique el programa para que dibuje en la pantalla varios diagra- 
mas de sectores con el mismo radio. (Aquf si que es importante alma- 

cenar las coordenadas de la circunferencia en dos vectores, para no 
calcular varias veces los mismos datos.) 

3. Escriba un programa que dibuje diagramas de sectores sucesivos, unos 
encima de otros, con los sectores rellcnos dc color. 



Formas > dibujos 



En el capftulo 1 hemos visto que es muy facil realizar figuras geometricas con 
s61o los comandos MOVE y DRAW: 

10 MODE 1 

20 x=320:y»200 

2B REM maximo da La longitud de los brazes de la 

f igura 
2? REM pruebe cambiando maximo y paso 
30 maximo«200 
40 paso^S 

50 FOR con=0 TO maximo STEP paso 
60 MDVE x-con,y 
70 DRAW x,y*(raaxino-con) 
80 DRAW x+con,y 
90 DRAW x,y- (max i mo-con > 
100 DRAW x-con,y 
110 NEXT 

En las clases de geometria para niflos se hacen muchas figuras de este estilo. 
Se producen algunos efectos bastante espectaculares tomando una serie de 
puntos y iini&ndolos 'todos con lodos' mediante reclas. El siguiente progra- 
ma construye un polfgono con el numero de lados que se desee y despues une 
cada venicc con todos los demas; 

10 MODE 1 

20 radio=150 

30 x =320: y =200 

40 INFUT"CuanLos lados* tit*r*e la f igura" ; 1 ados 

30 CLS 

60 paso=2*PI/lados 

70 DIM x Uados) ,y<lados) 

G0 cari-0 



76 
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90 ORIGIN n,y 

100 MOVE 0, radio 

110 FOR angulo^'0 TO 2"PI STEP paco 

120 DRAW rsdio#SIN(anguIo) , radio#C0S (angul o) 

130 x (con) ™radio*S IN (angul o> :y (con) =radi o*CQS (an 

gulo) 

140 con=con+l 
150 NEXT 

155 DRAW 0, radio 

160 FOR conl=l TO lados-1 

170 FDR can2-conl + l TO 1 ados 

180 MOVE x (conl) ,y(cortl) 

190 DRAW x (can2),y(con2> 
200 NEXT 

210 NEXT 




Figura 4.1. Ejemplo de curva formada uniendo puntos. 
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Queda mucho mcjor si se dibuja con colores: 

133 color=ltDRflW 0, radio, color 
160 FOR conl=l TO lados-1 
170 FOR con2=conl+l TO lados 

173 REM experimente con los colores en la linea 
175 

174 REM camble el MOD para ver el efecto 
173 color*l+(color+l) MOD 3 

180 MOVE x(conl),y(conl) 

190 DRAW x(con2),y(con2> , color 

200 NEXT 

210 NEXT 



En csle capituio vamos a vci como se pueden producir figuras mucho mi 
elaboradas. Muchas de ellas estan basadas en el uso de las funciones sen 
y coseno. Pero no se preocupe por las matematicas; los programas esti 
completamente escritos, aunque proporcionan muchas oportunidades pi 
ra que usted d€ otros valores a ciertas variables para estudiar lo qi 
ocurrc. 



Tejidos de colores 

Con el comando ORIGIN y con los desplazamientos relativos es facil d 

bujar figuras con simetrfa. El siguiente programa coloca el origen en < 

centro dc la pantalla y crca una figura uniendo punlos del nuevo eje ; 

con puntos de la pane superior y de la parte inferior de la pantalla. L 

coordenada X se multiplica por un factor que hace que las lineas convei 
jan o diverjan: 

10 MODE 1 

19 REM se usan numeros enteros para mayor veloci 
dad 

20 DEFINT c t i t x t y 

30 xorig»n=320:yorigen=200 

39 REM cambio eatoo factor.s para obtener dlfere 
ntes efectos 

40 { actorl=3:f actor2=l 

30 f actord=factorl— factor2 
60 ORIGIN xor igen, yorigen 
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69 REM el bucl« dibuja cuatro rectas simetrica» 
de position variable 

70 FOR con=0 TO 200 

80 MOVE 0,0:MOVER conn-factor 1, 
90 DRAWR -con»factord,200 
100 MOVER -con*factor2*2,0 
110 DRAWR -con*factord,-200 
120 DRAWR con»-factord,-200 
130 MOVER con«factor2*2,0 
140 DRAWR con#factord,200 
150 NEXT 

Observe que el DEFINT de la linea 20 esta puesto para dar rapidez ai pro- 
grama. No siempre sera posible trabajar con variables enteras a causa de 
los senos y cosenos, que dan siempre decimales. 

Los factores de la linea 40 se pueden cambiar, pero conviene evitar que 
sean mayores dc 15, pucs cnlonccs las lineas se separan excesivamenic. 
Las sorprendentes formas que surgen en el dibujo provienen de que cier- 
tos puntos quedan del color del fondo y tarabien de los puntos en que las 
lineas se superponen. Experimente con factores diferentes y ejecutc el 
programa en otros modos de pantalla. Obtendra una bonita alfombra 
aftadiendo estas lfneas: 

35 colorl=l:color2=l 

70 FOR con=0 TO 200 

80 MOVE 0,0:MOVER con#-f actor 1 ,0 

90 DRAWR -conif octord, 200, colarl 

100 MOVER -con**actar2*2,0 

110 DRAWR -con*-factord,-200,colar2 

123 DRAWR con*factord, -200, colorl 

130 MOVER con**actor2#2,0 

140 DRAWR can**actord,200 ( color2 

150 colorl«l+<colorl+l) MOD 4: color2=l+ <color2+ 
1) MOD 4 
160 NEXT 

La linea 150 hace que las reclas se dibujen usando ciclicamcntc los colorcs 
del modo I . La scntencia MOD sirve para dar el resto de la divisibn; por 
cjemplo, 5 MOD 4 es I. Ademas, se suma un l para garantizar que el 
resultado no da el color del fondo; de otra manera, como 4 MOD 4=0 
se obtendrian rectas que no contrastarian con el fondo. Las lineas 35 y 
150 hacen que el aspeclo final sea de un calido color naranja. Las tintas 
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que se usan en las sentencias DRAWR son 1 (amarilla) y 3 (roja). De lo 
aprctadas que rcsultcn las Uncas (lo que depende dc los factorcs dc la linea 
40) depende que el color quede naranja o a rayas rojas y amarillas. 

Ajustando los valores de colorl y color2 y cambiando MOD 4 en la 
Ifnea 150 por MOD 2 o MOD 3, se obtiene cierta variedad de efectos: fi- 
guras con cuadrantes opuestos en diferentes colores o compuestos unica- 
menie de ciertos coloics. AI cjecular el programa en los olros modos 
cambian completamente los resultados, salvo que se ajusten los colores 
utilizados. 



Figuras de Lissajous 

Las figuras de Lissajous se obtienen utilizando una idea de la que ya nos 
servimos para dibujar una circunferencia. Enionces manieniamos cons- 
(ante el radio y tomabamos cl scno y el coscno del mismo angulo para 
construir un punto de la circunferencia. Variando este angulo se obtienen 
figuras diversas: 

10 MODE 1 

20 i< origan =320 1 yor igon=200 

30 ORIGIN xorigen, yorigen 

40 MOVER 100,0 

50 FOR angulo=0 TO 32 STEP PI/30 

60 DRAW 100*COS< angulo) , 100*SIN (angulo*0. 8) 

70 NEXT 

Una alternativa puede ser unir con rectas los puntos de dos de estas 
curvas: 

10 MODE 1 

20 xorigen=320: yorigen=200 

30 ORIGIN k or i gen, /or i gen 

40 MOVER 100,0 

50 FOR angu!o=a TO fe. 4 STFP PI/35 

55 MOVE 200*SIN(angulo) , 100*COS (angulo) 

60 DRAW 100*CQS(angulo) , 200*SIN (angulo) 

70 NEXT 

O bien este olro ejemplo: 
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10 MODE 1 

20 xorigen«320: yarigen=200 

30 ORIGIN xorigen, yor i gen 

50 FOR angulo=0 TO 6.4 STEP PI/35 

55 MOVE 30B*SIN<ongulo> , 50*COS (angul o) 

60 DRAW 10<COS(angulo/5) ,200*SIN(angu)o#2) 

70 NEXT 

O tambien con color: 

10 MODE 1 

20 HOT igen=320: yor igen K 200 

30 ORIGIN xorigen, yorigen 

40 calor=*l 

50 FOR angular© TO 20 STEP PI/30 

53 IF angulo>10 THEN color<5 

55 MOVE 200*SIN<angulo> , 200*COS (angulo) 

60 DRAM 100*COS<angulo»3> , 200*SIN <angulo/3> , col o 

r 

70 NEXT 

Como en otras ocasiones, puede ensayar utilizando oiros modos. El em- 
pleo del seno y del coseno para producir este tipo dc dibujos son la consc- 
cuencia de baslantes experimentos, aunque al principio los resultados pa- 
rezcan impredecibles. Sin embargo, pronto se aficionara a experimentar 
con el cambio de las variables o a investigar con otras funciones, como 
los cuadrados de senos y cosenos o sus productos por otros faclores. 



Espirales 

Podemos crear una espiral utilizando nuestro programa de dibujar cir- 
cunferencias pero haciendo que el radio cambie constantemente: 



10 MODF 1 

20 GOSUB 1000 

100 END 

1000 xorigen=315: yorigen=19C 

1010 ORIGIN xorigen, yorigen 

1020 color*l 

1029 REM valor del incremento del radio da la *s 

piral cada vez que ae dibuja un nuevo punto 
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1030 radlolncrefi©nto=0.5 

1040 paso«PI/30 

IB4B REM angulofinal deternina las vueltas que d 

ira la espiral 

1049 REM un valor excesivo hace que se saiga de 
1 a pantal.l a 

1050 angulof inal~40 

1059 REM se comienza con radio 1 

1060 radiocom^l 
1070 G0SUB 2000 
1900 RETURN 
2000 MOVE P 

201O FOR angulo^B TO angulo/inai STEP paso 

2020 DRAW radiocom*SIN<angulo) ,radiocom*COS(angu 

1 o> , col or 

2030 radiocom-radiocom+radioincremento 

2040 NEXT 

2050 RETURN 

Afladiendo algunas lineas podemos hacer que se dibujen unas espirales 
dentro de otras: 

1079 rem otra eaplral en el interior de la anter 
ior; esta comienza con radio 10 

1080 radiocom=10 
1090 GDSUB 2000 

1099 REM ultima espiral en el interior de la ant 
orior) esta comienza con radio 20 

1100 radiocom E =20 
1110 G0SUB 2000 

La espiral puede animarse de un aparente movimiento de rotaci6n dibu- 
jundo los pumos dc difcrcntcs colorcs y poniendo lintas intermitentes en- 
Irc un color y el del fondo: 



10 MODE 1 

20 GOSUB 1000 

2B RCM tintas que parpadeen entre dos colores 

29 REM con al ternancia entre ambas 

30 INK 1,1,20 
40 INK 2,20,1 

50 respuesta*="" 
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60 WHILE respuesta*-' " 
70 rospuoet*»-INKEY» 
80 WEND 

90 INK 1,24: INK 2,20 
100 END 

!0S3 REM ahora las das tlntas son iguales 

1054 REM .1 d-r ol mi* mo color a la tinta 1 que 
a la tinta 2 

1055 INK 1,20 

2014 REM las lineas se dibujan ft] ternando las do 
s tintas 

2015 IF color=l THEN colore ELSE color-i 

Es un tecnica usual que volveremos a ver. 



Fieuras repetitivas 

Muchos dibujos, como los habituates en los papeles pintados para las pa- 
redes, se obtienen raediante la simple repetici6n de una figura: 

10 MODE 1 

20 BOSUB 1000 

40 END 

990 REM datos para un octogono 

999 REM pruebe con otras -figures 

1000 xcom=0:ycom=0 

1001 REM Kcom.ycom fornian .1 centre del primer o 
olxgona K 

1010 radio-10 

1020 lados=8 

1030 paso=2«PI/lados 
1040 color=2 
1050 GOSUB 3000 
1060 RETURN 

299B REM SG reiiena la pantalla con copias del p 
oligono 

2999 REM se detiene cuando las coordenadas del 
entro se salen de la pantalla 

3000 centrows«comicentroy-ycom 
3010 WHILE centr DX <639 DR c*ntroy<399 
3020 ORIGIN centrox,centroy 



c 
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3030 MOVE 0, radio 

3040 FOR angulo=0 TO 2*PI STEP paso 

3050 DRAW radio*SIN(anqulo) ,radio*CQS (angulo) ,co 

lor 

3060 NEXT 

3069 REM desplazamiento en la direccion ds la x 

3070 centrOK=centro>:+radio*2 

3079 REM si se sale de la pantalla se recomienza 

mas arriba 
3BQ0 ir c«ntro><>639 AND centroy<399 THEN contron 
-xcom:centroy='centray+radio*2 
3090 WEND 
3100 RETURN 

* 

Sc iogran resultados mas claborados superponicndo un scgundo conjunto 
de figuras al primero. Esto se puede hacer con figuras dislintas o con fi- 
gures iguales pero de diferente tamafio: 

30 GOSUB 2000 

1999 REM datua pore un heitagono 

2000 >:com=40: ycom=40 
2010 radio=40 

2020 lados=6 

2030 paso=2*PI/lados 

2040 col or -2 

2050 GOSUB 3000 

2060 RETURN 

Las filas se pueden poner escalonadas comenzandolas en una de dos posi- 
cioncs olternativas: 

3079 REM si se sale de la pantalla se recomienza 
mas arriba 

3080 IF centre* >639 AND centroy<399 THEN GOSUB 4 

3090 WEND 
3100 RETURN 

3999 REM se escalona el comienzo de cada fila de 
pol igonos 

4000 IF xcon=0 THEN xcom=radia ELSE iscom=0 
4010 centrox=>:cora:centroy=centroy*radio*2 
4020 RETURN 
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Rotaclda de una figura 

Es ficil modificar el programa de dibujar circunfcrencias para que dibuje 
poligonos. El programa asi constniido puede ser incorporado como su- 
bruiina en un programa que vaya alargando y rotando una figura, de ma- 
nera que proporcione un dibujo en espiral: 

13 MODE I 
20 GOSUB 1000 
3B GOSUB 1300 
40 END 

999 REM lectura de los datos del poligono 

1000 READ lados 
1010 READ radio 

1020 RCAD centrox, cantroy 

1030 READ radiocambio.angulocambio 

1040 color=2 

1050 paso=2*PI/lados 

1060 anguloeom=0! angulo-f in=2»PI 

1070 RETURN 

1500 ORIGIN centrov.,centroy 

1508 REM no se dibuja el poligono cuando se hace 
demasiado grande 

1509 REM lo que significa radio>200 para los pol 
igonos de los DATA 

1510 WHILE radio<200 

1520 MOVE rsdio#SIN(angulocom) , radio*C0S (anguloc 

am) 

1530 FOR angulo=angulocom TO angulo-f in STEP paso 

1540 DRAW radio*3IN(angulo) , radio*COS (angulo) ,co 

lor 

1550 NEXT 

1360 DRAW radio*B!N (angulocom) , r«dio*CQS < anguloc 

om) 

1569 REM se incretnenta el radio 

1570 radio=radio+radiocambio 

1579 REM se gira el siguiente poligono para que 
forme ongulo con el anterior 

1580 angulocom^angulocoimangulacambio 
1590 angulo-f in=angul of in+angulocambi o 
1600 WEND 

1610 RETURN 
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2000 
2010 
2020 
2030 
2040 
2050 
2060 



DATA 3,20,300,200,5,1 

DATA 3,20,300,200,3,10 

DATA 4,30,300,200,4,3 

DATA 6,20,300,200,1,6 
DATA 6,20,300,200,6,1 

DATA 8,10,300,200,3,10 

DATA 8,10,300,200,5,2 



Ejecute el programa tal como esta. Los DATA de la lfnea 2000 y siguien- 
tcs proporcionan datos para varias figuras diferentes. Borre luego el pri- 
mer DATA y vuelva a ejecutarlo, y asi repetidamente hasta agotar los 
ejemplos. De esta forma ira viendo el efecto que produce el cambio de 
niimero de lados del poligono y de los coefictentes de alargamiento y de 
rotaci6n. 




Fijiura 4.2. Tipo dc figuta que sc obticne por rotaci6n de una forma bisica. 
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Con el uso juicioso del color sc pucden lograr cfectos llamativos: 

10 HODE 1 

20 GO BUB 1000 

29 REM las tintas 2 y 3 sol intermlnentts y «1 t» 
rnadas entre si 

30 GOSUB 1500 
40 INK 2,1,20 
50 INK 3,20, 1 

39 REM se eapero la pulosci9an dm una ticla 

60 respuesta*-"" 

70 WHILE respuesta**"" 

80 respuesta«=INKEY* 

90 WEND 

99 REM tintas normalas 

100 INK 2,20 
110 INK 3,6 
120 END 

1504 REM tinta 3 igual a la 2 

1505 INK 3,20 

1594 REM las poligonos se dibujan al ternativamen 

te con una y otra tinta 

1593 IF col or =2 THEN color-3 ELSE color«2 

Al tcrminar dc dibujar la figura, cl programa produce un sorprendente 
efecto por la intermitencia entre el color del fondo y el olro color. 



Ejercicios 

1. Escriba una nueva versi6n del programa que une los vertices de un po- 
ligono de manera que dibuje dos poligonos y una sus vertices. 

2. Investigue el efecto que producen en el programa de los tejidos de co- 
lores los cambios siguientes: otropasodistintoenelbudeFOR. . .NEXT; 
dibujar sobre la primera figura otra con factores y colorcs diferentes; 
desplazar el origen para crear una superficie llena de las mismas 
figuras. 

3. Modifique el programa de rotaci6n de poligonos para que el numero 
de lados del polfgono varie a lo largo del programa. Vaya alternando, 
por ejemplo, entre un triangulo y un pentagono; o bien entre todos los 
poligonos, aumentando un lado en cada rotacidn hasta que haya 20 la- 
dos y recomenzando de nuevo. 
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DIBUJO INTERACTIVO EN LA PANTALLA 

Ademds de hacer que el ordenador construya figuras mas o menos geome- 
iricas, tambien se puede conseguir que ayude al usuario para que sea el 
raismo el que disefie una figura sobre la pantalla; a esio vamos a dedicar 
el resto del capitulo. Para que los programas puedan ser utilizados por 
la totalidad de los usuarios, los hemos diseflado para que funcionen em- 
pleando el teclado, pero es facil hacer las pequenas modificaciones que 
sc rcquicrcn para ulilizar los mandos de juego ("joysticks"). Utilizare- 
mos el modo de pantalla para proporcionar mayor variedad de colores. 
El primero de los programas proporciona la herramienta mas elemental 
para dibujar sobre la pantalla. Permite dibujar puntos que vayan for- 
mando lineas de la direcci6n deseada: 



10 MODE 

20 x«320:y^200 

30 color=l 

40 MOVE x,y 

50 PLOT x,y,color 

60 GOSUB 1000 

70 END 

997 REM examen del teclado - fin cuando se pulsa 

la tecla *e' 
1000 WHILE respuesta*<>*a" 
1010 respuesta*=INKEY* 

1019 REM comandos para dibujar la lineas arriba/ 
abajo=a/z , izquierda/derecha=, /. 



1020 


IF respuesta*=' 


"a" 


THEN 


V 


°v + 2 


1030 


TF rB=puosta*= H 


1 *- II 


THEN 


y 


-y-2 


1040 


IF respuestat=' 


* M 


THEN 


X' 


■x-4 


1050 


IF respuesta*=' 


P II 

■ 


THEN 


X J 


s x+4 


1060 


PLOT x,y f color 










1070 


WEND 










1080 


RETURN 











El primer punto se dibuja en las coordenadas de la linea 20. Luego. el 
programa espcra que se pulse una tecla para avanzar hasta otro punto. 
Las direcciones de avarice se controlan con las teclas siguientes: 'a' para 
arriba, *z' para abajo, ',' para inquicrda y V para derccha. EI programa 
actualiza las coordenadas en funcion de !a tecla pulsada y dibuja el punto. 
Es facil aftadir otros comandos a esta esiruciura bdsica. Aunque el mo- 
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vimiento estii por cl momenio limiiado a las cuairo dirceciones cardinalcs, 
se pueden programar avances en diagonal afladiendo Imeas a partir de la 
1050. 

Tal como esta, el programa dibuja lineas continuas, y no es posible pa- 
sar de una posicidn a otra separada de el!a sin trazar una linea. Podernos 
anadir como opci6n que el color del putito pucda ser tanto el de dibujo 
como el del fondo: 

1051 IF respuesta»="d" THEN color=l 

1052 IF respuesta*="-f " THEN color^B 

Pero si se ha seleccionado el color del fondo no se vera el dibujo de los 
puntos y no sabremos donde eslamos dibujando. Eslo puede arreglarse 
dibujando dos veces el punto; la primcra en un color que se vea, y la se- 
gunda en su color definitive* 

35 colorvisible=l 

1005 PLOT x,y,colar 

1060 PLOT x^calorvisible 

Si el color que se selecciona es el del fondo, el punto quedara intermitentc 
enlre los dos colores, acluando como un cursor que nos indica por d6nde 
vamos. 

Tambien se puede dar la opci6n de seleccionar el color del dibujo, bien 
directamente con varias teclas, bien empleando una sola tecla para reco- 
rrer un ciclo de colores de la misma forma que hicimos en programas an- 
teriores: 

1053 IF respuesta»="c" THEN color«l*<color+l> MO 
D 3 

De esla manera, tenemos una elecci6n entre Ires colores que se disiinguen 
perfectamente del color del fondo. 

A veces, sera dificil dibujar con exaclitud rectangulos y otras figuras 
parecidas empleando la vista como unicosistema de medir distancias. Po- 
dernos hacer que nos vaya apareciendo una informaci6n numerica en la 
pantalla. Esto nos da una disculpa para presentar el comando WINDOW 
{window es ventana), que podemos emplear para hacer que todo lo que 

sea texto aparezca en una zona determinada dc la pantalla: 

13 WINDOW 1,40,24,25 

16 PRINT "Color: ■ 

17 PRINT "XI y: "; 
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Los cuatro numeros que siguen a WINDOW cspecifican primero !a coor 
denada X de los bordes izquierdo y derecho de la ventana, y Iuego la cooi 
denada Y de los bordes superior e inferior. En nuestro caso, la ventan; 
para cl texto ocupara las dos ultimas lfneas de la pantalla: 

1051 IF respuestat="d" THEN color=colorvisiblo 

1052 IF respuesta*="f " THEN colorvi sible=col or : c 
olor»0 

1053 IF respuesta*»"c" THEN color=l+ <color+l ) MO 
D 3 

1060 PLOT x,y, color-visible 

1065 GOSUB 2000 

1070 MEND 

10B0 RETURN 

2000 IF colorviejoOcolor THEN LOCATE 9,ltPRINT 
color 

2010 IF xvitjoOx THEN LOCATE 4,2:PRINT x; 
2020 IF yvitjOOy THEN LOCATE 12,2:PRINT y; 
2030 colorviejo=color 
2040 >:viejo=»:yviejo=y 
2050 RETURN 

Ahora podremos realizar nuestros calculos con mayor exaciitud, pues el 
programa nos da una informacibn que mantiene siempre actualizada so- 
brc el color y las coordenadas del punto. Observe que el Amstrad consi- 
dera tambien la ventana de texto como parte de la pantalla graTica; lo po- 
dra comprobar llevando su dibujo hacia esa zona. 

Hay aun muchos defectos en el programa. Las lfneas s61o se pueden 
borrar dibujando sobre ellas con el color del fondo. Por otra parte, si 
sc cruza sobrc una Unea al ir dibujando con el color del fondo, se borrara 
el punto de intersecci6n. A pesar de que esto pueda parecer un problema 
sin solucidn, tiene una muy sencilla. aunque para ponerla en prictica va- 
mos a tener que utihzar nuestros conocimientos sobre los niimeros 
binarios. 



Ejcrclcios 

1. EI programa anterior no se preocupa de si los puntos se salen de la 
pantalla. Haga una modificaci6n para que el programa impida salirse 
de la pantalla o dibujar sobre la ventana de texto. 
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2. Aumente la posibilidad dc elcgir colores hasta 16. Utilice el comando 
INK para elegir los 16 que mas convengan dc entre los 27 posibles, en 
lugar de utilizar los que vienen dados por defecto. 

3. Aftada los comandos necesarios para que se pueda dibujar en dia- 
gonal. 



la opcion XOR 

Ahora podremos comprobar el in teres de los comentarios que hicimos en 
cl primer capitulo acerca de los sistemas binario y hexadecimal, ya que 
son conceptos importantes cuando se trata de las operaciones graficas. 

Conviene recordar que la pantalla es la representacidn externa de una 
parte de la memoria del ordenador. Los caracteres que aparecen o las H- 
neas que estan dibujadas son el resultado de la forma en que se almacenan 
valores binarios en dicha zona de memoria, que es la que el Amstrad exa- 
mina para construir la configuraci6n de la pantalla. 

EI dibujo de una Unea hace que los bytes (los gmpos de 8 bits) cambien 
en la parte de memoria que corresponda. El valor de una posicidn de me- 
moria es lo que determinasi un punto de la pantalla esta encendidoo apa- 
gado y, si esta encendido, de que color lo esta. De hecho, el color de cada 
punto se almacena en un determinado byte, en una forma que no es obvia 
pero que tampoco nos interesa por el momento. Para dar una explicaci6n 
sencilla, vamos a imaginarnos que hay una correspondencia uno a uno en- 
tre puntos y bytes, de manera que la configuracion de los bits de un byte 
es lo que indica al Amstrad c6mo debe dibujar el correspondiente punto 
en la pantalla. Esto no es exactamente asf, pcro cl modelo servira perfec- 
lamente para lo que necesitamos comprender. 

Supondremos que se puede elegir entre cuatro colores y que el byte que 
representa un punto de pantalla puede lener uno de los cuairo valores de 
la figura 4.3. 

Cuando la pantalla esta completamente azul, todos los bytes valcn 
00000000; si esta completamente blanca, todos valen 00000001 y asi suce- 
sivamente. AI dibujar una Unea blanca, los bytes correspondientes a los 
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ooooooo 

OOOOCOOI 
00000010 
00000011 



Azul 

Blanco 

Amarllo 

Ftujo 



Figura 4.3. Representation binaria de los colores en cl supuesto ficlicio. 
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punios de la ifnea loman cl valor 00000001; lo mismo, pero con el valoi 
00000010. cuando se dibuja una linea amarilla. 

Dijimos hace liempo que habia c6digos ASCII que representaban co 
mandos del Amstrad como, por ejemplo, movimientos del cursor o bona 
do de la pantalla. Uno dc cstos uodigos cstablccc la modalidad en qui 
el Amstrad dibuja los puntos. 

Se puede hacer que el Amstrad dibuje en la modalidad de 'or exclusivo 
(que se abrevia por *EXOR' o, mas frecuentemente, por 'XOR'). 

Cuando no se emplea esta opci6n, el Amstrad se limita a cambiar el an 
terior valor del byte por el nucvo. Por ejemplo, al dibujar una Knca ama 
rilla, los bytes correspondientes tomaran el valor 00000010. 

Con la opci6n XOR cl Amstrad combina el viejo valor del byte con e 
nuevo, segun ciertas reglas. Vamos a examinar lo que ocurriria con ui 
byte individual correspond iente a un punto de la pantalla, para ver qui 
el cfcclo cs cl que nos intcresa. Supongamos para empezar que el byt 
tiene el valor 00000000, o sea, representa un punto del color azul del fon 
do, como en la figura 4.4: 



00OOXHX) Un punto del color (tel londo (azul) 
Figura 4.4. 



Supongamos que se dibuja una linea amarilla (valor 00000010) sobr 
dicho punto. La situacion es la que indica la figura 4.5: 



O0OCO0O0 Un punto azul y 

QGQCOQiQ una linea amarilla sobre el punto 



Figura 4.5. 



Como el Amstrad esta cmpleando la opcion XOR, lo que hace no t 
reemplazar 00000000 (azul) por 00000010 (amarillo), sino mezclar los dc 
bytes. Donde los bits de ambos bytes son diferentes, pone un I y, dond 
son iguales, pone un 0. El resultado es que el valor que queda correspor 
de a un punto amarillo, como se puede ver en la figura 4.6. O sea, ocun 
lo mismo de siempre. Desde luego esto no cs lo que el lector podrfa espi 
rar despues de la publicidad que hemos hecho de la opci6n XOR. 
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OOOOOOGO Un punto szul 
XOR 00000010 cruzado pot una llnea amarilla 
00000010 da up punto amarlllo 

Figura 4.6. 

Veamos ahora que ocurre con esta opci6n si se dibuja una linea amari- 
lla cruzando otra linea ya dibujada. El efecto, que se muestra en la ftgura 
4 7 esmasbieninesperado. Como coinciden los bytes antiguo y nuevo, 
la opci6n XOR produce el valor 00000000, correspondiente al color azul 
del fondo; la linea desaparece de la misma forma que si se hubiese dibuja- 
do en azul con la opci6n normal. 



00000010 Un punto amarillo 
XOR 00000010 cruzado por una linea amarilla 

OOOOOCOO da un punto del color del fondo (azul) 

Figura 4.7. 

Si a continuacion se dibuja encima otra linea amarilla, la linea amarilla 
original reaparece, puesto que se produce de nuevo la situaci6n de la figu- 

ra 4.6. __ M 

£ Que ocurre cuando se dibuja (con la opcion XOR) una llnea amarilla 

sobre una linea blanca? 



OOO0C001 Un punto bUnco 
XOR 00000010 cruzado pot una llnea amarilla 

Figure 4.8. 



Results una linea roja, como explica la figura 4.9: 



00000001 
XOR 00000010 

ooooxm 



Un puntu banco 

cruzado pot una llnea amarilla 

da un punto rojo 



Figure 4.9. 



De nuevo, al dibujar la linea del mismo color que tiene, cl color que 
queda es el del fondo, como ocurre en la figura 4.10. 
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000X01 1 Un punto rojo 
XOR 0000001 1 ciu*ado p<x una Hnea raja 

000X000 da un punlo del cokx del (oncfa (zaull 



Figura 4.10. 



Es posible que la opci6n XOR no le parezca muy ulil, pero los efeclos 
graficos que consigue son de un valor inestimable. Pcrmite dibujar lineas 
o borrarlas sin afeclar a las dem&s; asf se puede ensayar con un dibujo 
y corregirlo, antes dc hacerlo definitivo. Todo lo que hace falta recordar 
es que, con la opci6n XOR, lo que se dibuja dos veces desaparece. 






Dibujo con la opcion XOR 

Ames de comenzar el disefio de un nuevo programa de dibujo que aprove- 
che las posibilidades de la opci6n XOR, vamos a ver que facetas podria- 
raos tratar de incluir: 

1) que las lineas sean provisionales o permanentes; 

2) que se puedan borrar lineas; 

3) que el dibujo se pueda grabar en cinta; 

4) dibujo automatico de figuras predefinidas, como circunferencias o 
rectangulos; 

5) traslaci6n, ampliacion a escala y otros tipos de moviraientos de las 
figuras. 

De las dos riltimas funciones ya trataremos en un capitulo posterior. 
Para incluir 1) no hay problema despues de lo que acabamos de ver. Para 
realizar 2) y 3), lo mejor seria tener almacenadas en una matriz las coorde- 
nadas de los extremos de las rectas. Teniendo estos datos almacenados 
es sencillo identificar una Hnea y borrarla. Tambien seria facil almacenar 
el dibujo en un fichero; bastaria con guardar esta matriz de coordenadas, 
que se podrfa utilizar para reproduce el dibujo en cualquier momento. 

Vamos a realizar un programa de disefio modular, para poder ampliar- 
Io facilmente: 



10 MODE 

20 DIM x<100> ,y<100) 

T-0 !-.ant=320: yant=200 

40 x»320:y=200 

50 colorvisible™! 
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60 PRINT CHR«(2T.)|CHR»(l)| 
70 BOSUB 1000 
80 BOSUB 2000 
90 END 

999 REM dibujo de la recta 

1000 PLOT x,y, color-visible 
1010 DRAW xant.yant 

1020 RETURN 

2000 WHILE respuEsta$<>"e" 

2010 GOSUB 1000 

2020 respuesta*=LOWER*<INKEY$) 



a" THEN y«y+2 
z " THEN y**y-2 
, " THEN x*X-4 
. " THEN x=x+4 
" THEN GCSUB 3000 



2030 IF respuesta*=' 
2040 IF re»pue*ta*> 
2050 IF respuesta$=' 
2060 IF respuesta*=' 
2070 IF respuesta*=' 
2080 BOSUB 1000 
2090 WEND 
2100 RETURN 

2999 REM opcion gra-fica normal para dibujar de m 
anera permanente 

3000 PRINT CHR*(23) ;CHRt(0) ; 
3010 GOSUB 1000 

3019 REM vuelta a la opcion XOR 

3020 PRINT CHR*(23);CHR*U>| 
3030 con=con+l 

3040 >; (con) =x s y (con>=y 
3050 xant*x : yant=y 
3060 RETURN 

La linea 20 reserva matrices para las coordenadas de 100 punlos (esta can- 
lidad puede per feet amente aumentarse). Las variables x e y son las coor- 
denadas del punto con el que ac csta trabajando en ese inomento. Las va- 
riables xant e yant son las coordenadas del ultimo punto que se ha fijado 
definitivamente. fistas son las coordenadas que deben estar disponibles 
para podcr dibujar si se desea una recta permanente entre ambos puntos. 

La subrutina 2000 es el modulo central del programa. Se encarga de 
consultar cl tcclado y dibuja y borra sucesivamente una recta entre (x,y) 
y (xant.yant). 

La subrutina 1000 se encarga de dibujar la recta entre ambos puntos 
cuando uno de ellos va desplazandose; es una tecnica que podria llamarse 
de la 'cinta eiastica' por el cfecto visual que produce. 



% TtOOCAJ dk rmxiHAMACidN dk grAficos bn hi Amsiicad 

Al pulsar la barra cspaciadora, la linea se dibuja pcrmanentemen 
mcdiantc la subrulina 3000. Esta subrutina pone el modo grafico en 
modalidad normal, dibuja la linea y vuelve a la modalidad XOR. I. 
coordenadas del punto se almacenan en las matrices y sus valores i 
asignan a las variables xant e yant para servir de arranque a la recia > 
guienle. 

Podemos modificar el programa para dar la opci6n de dibujar o no 
linea provisional: 

55 lineadib=0 

999 REM dibujo de la recta (o no si lineadib=0> 

1000 PLOT x,y,colorvisible 
1005 IF Jineadib=0 THEN RETURN 
1010 DRAW xant.yant 

1020 RETURN 

2070 IF respuesta*=" - THEN QOSUB 3000: 1 ineadib= 
1 

2071 IF respuesta*="l" THEN IF lineadib=0 THEN 1 
ineadib=l ELSE lineadib=8 



La linea 2071 permile utilizar la tecla T para conmutar entre ambas o| 
ciones. Cuando lineadib =0 no se dibuja la linea, terminando anticip; 
damente la subrulina 1000. AI ejecutar ahora el programa, podra ver qi 
la nueva opci6n le siive tambien para fijar un punto sin que quede defin 
tivamente unido por ninguna linea al anterior. 

Es muy facil hacer que se pueda borrar una linea. Vamos a limitarn< 
a permitir que se borre la ultima linea trazada, pulsando la tecla 'b*: 

2072 IF respuesta»«"b" THEN GOSUB 4000 

3998 REM no marcha si se trata de borrar una Un 
ea que no existe 

3999 REM ya veremos como se arreala en el proxim 
o programa 

4000 x=x (con) : y=y (con) 
4010 con=con— 1 

4020 xant=x (con) : yant^y (con) 
4030 QOSUB 1000 
4040 RETURN 

Esto permite tambien borrar cualquier linea trazada, pero a costa de b< 
rrar todas las que se han dibujado despucs de ella. 
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Si Ic parecc que la respucsia a las 6rdcncs del teclado cs algo lenta, afta- 
da las Hneas siguientes: 

1 DEFINT c,f ,l,D,B,K,y 

2 SPEED KEY 2,2 
89 SPEED KEY 10,5 

Ya hemos dicho antes que la utilization de enteros mejora la velocidad 
de los programas. La instruction SPEED KEY va seguida de dos nume- 
ros que indican el tiempo que debe pasar para que comience a repelir.se 
una tecla y el periodo de la repetition, todo ello en unidades de 1/50 se- 
gundos. Con esos dos valores se puede regular la velocidad con la que 
el ordendor responde a la pulsacibn de las teclas. Cuando se pulsa una 
tecla, el ordenador espera el tiempo espccificado por el primer numero 
antes de repetir el caracter. Si la tecla sigue pulsada. va repitiendo el ca- 
rdcter a intervalos cuya duraci6n es la especificada por el segundo de los 
numeros. Antes de salir del programa hay que volver estos datos a sus 
valores normales pues, en caso contrario, seria practicamente imposiblc 
teclear correctamente los comandos posteriores. 

Cuando se ha creado un dihujo que constituye una obra maestra, con- 
viene guardarlo. Para ello hay que cambiar un poco el programa. No 
basta con recordar todos los puntos fijados, sino que hay que saber tam- 
bitn que* punlos se han unido con rectas y cuales no: 

20 DIM x (100) ,y (100) , 1 <100) 

3030 con=con+l 

3040 x (con) ■» :y (con) =y 

3045 1 (con)=lineadib 

3050 xant=K: yant=y 

3060 RETURN 

4000 >;=x (con ) :y— y (con) : lineadib=l (con) 

Las matrices x( ) e y( ) son para las coordenadas de los puntos. Lama- 
triz l( ) sirve para saber si un punto se ha unido al anterior; para ello basta 
con que guarde el valor de la variable lineadib cuando se fija el punto. 
Si el valor guardado es 0, significa que la Iinea no se trazd y que el punto 
no quedo unido al anterior. Cualquier otro valor indica que el punio que- 
do unido al anterior. 



2074 IF re*puesta*="i " THEN GOSUB 7000 

2075 IF respuesta*="o" THEN GOSUB BO00 
6000 CLG 
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6010 xant«>: (1 ) jyant-y (1 ) 






6020 FOR .alor«2 TO con 




6032 x=x (valor) : y=y (valor ) 






6040 lineadib=l (valor) 






6050 GQSUB 1000 





6060 xant a x : yant=y 

6070 NEXT 

6030 x=320:y-220: lineadib=0 

6090 RETURN 

7000 MODE 1 

-"Till FRINT'Targa de datos de un fichero" 

7020 INPUT"Nombre del fichero: "jficherc* 

7030 OPENIN fichero* 

7040 can=CI 

7050 WHILE NOT EOF 

706C con=-con+l 

7070 INPUT #9,x :zan! ,y(con) , 1 (con) 

70OE WEND 

7090 CL9SEIN 

7:02 MCDE 3 

7110 WINDOW 1,20,25,25 

7120 xant-x (con) : yant=y (ccn! 

7130 x=xant i y^yanfc 

7140 GQSUB 6000 

7150 RETURN 

C003 MODE 1 

S010 PRINT"Grabacicn de datos en un fichero" 

3020 INPUT-Nombro del fichero: ";fichero* 

8030 OPENOUT fichero* 

8040 cuer.ta^O 

8050 WHILE cuenta<=con 

8060 WRITE #9,x(cuenta> ,y(cuenta> , 1 (cuenta) 

8070 cuenta=cue~.ta+l 

3080 WEND 

8090 CLOSEOUT 

8100 MODE 

8110 WINDOW 1,20,25,25 

8120 GOSUB 6000 

8130 RETURN 



La subrutina 8000 se encarga de grabar en un fichero las ires matric 
de daios y, posteriormente, vuelvc a dibujar la figura con la rulina 60C 
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Dc la misma forma que sc puede grabar los datos, tambien sc los puede 
cargar; eslo es lo que hace la subrulina 7000. No era estrictamenle necc- 
sario cambiar al roodo 1 para ejecutai estas rutinas, pero en modo 1 sc 
leen mejor los mensajes. 

La rutina de grabaci6n se invoca pulsando la tecla 'o'. y la de carga con 
V; hemos puesto estas para recordar input/output (o sea, entrada/sali- 
da), pero usted puede programarlo de otra forma. 

Ya tenemos practicamente completo nuestro programa de dibujo. Nos 
qucda unicamente anadir la opcion del color: 

2070 IF respuesta*=" " THEN GOSUB 3000: 1 ineadib- 

colorvisible 

2071 IF respuesta**"!" THEN IF lineadib=0 THEN 1 
ineadib=col or visible ELSE lineadib=0 

2076 IF respuesta*="c" THEN colorvisible=l+<colo 
rvisible+l) MOD 3 

3045 IF lineadib>0 THEN 1 (con) =colorvisible 
4023 IF lineadib>0 THEN colorvi sibl e«l lneadib 

El color crea problemas, puesto que para borrar una linea hay que dibu- 
jarla con la opcion XOR y el mismo color. Antes hemos visto c6mo una 
Hnca blanca, dibujada sobre una amarilla, no borraba esta, sino que la 
cambiaba de color. Afortunadamente, no hay necesidad de crear una 
nueva matriz para almacenar los colores, pues la propia matriz l( ) sirve 
para ello, tanto si se desea borrar h'neas como para las operaciones de gra- 
bacidn y carga. 

Vamos a terminar el capftulo con una demostracidn de la flexibilidad 
de un programa disefiado como este. Hemos aftadido una opcidn que 
permite realizar a otra escala el dibujo que hayamos creado: 

2073 IF respuesta*="s" THEN GOSUB 5000 
5000 WINDOW 1,20,25,25 
5ZJ10 INPUT-Escala: ";escala 

5018 REM multiplica los valores por el factor de 
escala 

5019 REM tomando como centre el punto donde esta 
el cursor 

5020 FOR valor=l TO con 

5030 x (valor)=escala*<x (valor) ->:) +320 

5043 y(valor)=escala*(y<valor)-y)+200 

5050 NEXT 

5060 GOSUB 6000 

5070 RETURN 
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Esta opci6n se invoca modiantc la tecla V, que provoca cl sailo a la su- 
brutina 5000; la rutina se cncarga de pedirnos la escala con la que quere 
mos aumentar o disminuir el dibujo. Por ejemplo, una escala de 2 dibu 
jara la figura a tamaflo doble, mientras que 0.1 la reducird a la decima parte 
La rutina aprovecha cl hecho dc que cl Amstrad no se pieucupa dc sa- 
ber si las coordenadas de los comandos graficos caen fuera de la panlalla. 
La rutina hace que se dibuje toda la figura, aunque s61o una parte quede 
dentro de la pantalla. Esta parte corresponded a los puntos que en la 
vcrsi6n a escala tengan coordenada X en el margen 0. . . 639 y coordenada 
Y en el margen 0...399. 

Cuando se ha elegido el factor de escala, el ordenador multiplica por 
dicho factor las coordenadas que figuran en las matrices xi ) e y( ). El 
centro del alargamiento es el punto en e! que se encontraba el cursor de 
dibujo en ese momento. EI nuevo dibujo aparece centrado alrededor de! 
punto (320, 200) de la pantalla, que se toma ademas como nueva posici6n 
del cursor. 

La utilizaci6n de enteros puede resultar ventajosa para hacer mas rapi- 
do un programa, pero aqui tiene la desventaja de limitar a los numeros 
enteros el factor de escala que se puede emplear. 



Ejercicios 

1. Anada unas pocas lineas al final del programa para devolver el modo 
de pantalla, la velocidad de respuesta de las teclas, etc., a sus valores 
habituates. 

2. Introduzca instrucciones que impidan que el dibujo se saiga fuera de 
la pantalla. 

3. La rutina de borrado de lineas tiene el problema de que puede seguir 
intentando borrar incluso despues de haber borrado todas las lineas, 
lo que provocara el "fracaso" del programa. Introduzca instruccio- 
nes que impidan que esto suceda. 

4. Anada una rutina que permita al usuario elegir de forma comoda los 
parametros que desea para SPEED KEY. 

5. Anada una rutina que vaya escribiendo en la pantalla las coordenadas 
del cursor en cada momento. 

6. (Mds difi'cii) Introduzca un borrado selectivo de lineas, para que se 
puedan borrar otras diferentes de la ultima dibujada. (Puede diseflar 
un ciclo que vaya recorriendo todas las lineas, y preparar una tecla pa- 
ra seleccionar la que se desea borrar. Recuerde que ademas debera re- 
flejar este hecho en la matriz l( J, pucs, en caso contrario, la recta rea- 
parecera cuando vuelva a cargar el dibujo desde !a cinta.) 
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LHBUJOS LINEALES EN MOVIMIENTO 

En el capiiulo anterior hcmos explicado como fundona la opdon XOR 
y su utilidad en el dibujo y borrado de lineas. Vamos a esiudiar ahora 
como podemos utilizarla para producir una animacion de las figuras. 

Un meiodo para crear dibujos animados es dibujar y borrar una figura 
a la vez que se desplaza por la pantalla. Es un metodo muy primitivo, 
pero, para figuras simples, la velocidad del ordenador pcrmiieobiencr re- 
sultados aceptables. El programa siguiente mueve un rectangulo a lo lar- 
go de la pantalla dibujandolo y borrandolo en cada position: 

10 MODE 1 

20 x=100:y=100 

30 xdistancia=50: ydistancia=100 

39 REM se mcrementa x en xinc cada vez que se d 
ibuja el rectangulo 

40 xinc*4 

30 WHILE x<639 

59 REM dibujo del rectangulo 

60 color=l:GOSUB 1008 

69 REM borrado del rectangulo 

70 color=0:GOSUB 1000 
90 H-x+xinc 

90 WEND 
100 END 

999 REM instrucciones para dibujar el rectangulo 

1000 MOVE x,y 

1010 DRAWR xdictancij, 0, color 
1020 DRAWR 0,ydistancia 
1030 DRAWR -xdistancia.0 
1040 DRAWR 0,-ydistancia 
1050 RETURN 
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Con pequcnas modlficacioncs, cl reciangulo se pucdc mover en diagona 

10 it inc4 1 yinc"2 

80 x=x+xinc:y=y+yinc 



Con dos lincas mas se puede hacer que rebole al llegar a los bordes de 
panialla: 






45 continue«>l 

50 WHILE continue*! 

59 REM dibujo del rectangulo 

60 coior=l:GOSUB 1000 

69 REM borrado del ractangulo 

70 color=0:GOSUB 1000 
79 REM actual izar coordenadas 
a de la pantalla 

B0 x=x+xinc:y=y+yinc 

Bl IF x<0 DR m>639 THEN xinc=-xinci«»H*2*Mi 
BB IF y<0 OR y>399 THEN yinc— yinc: y-y+2*yi 
90 WEND 






y ver si caen fuer 



nc 

nc 



El rcsuliado empeora cuando iniervicne una figura formada por mucha 
lineas. Supongamos que queremos animar cl dibujo dc un pcrto hechi 
a base de rcctas. Para que el movimiento tenga un poco de vida, vamo 
a dibujar la figura en dos posiciones diferenies. El ordenador debe dibu 
jar el perro en una posicion, luego borrarlo, dibujarlo en la posici6n alter 
naiiva y, finaimente, borrar este dibujo. A continuacidn hay que actuali 





Figura 5.1. Utilizacion de una misma figura en dos posiciones 
diferenies para mcjorar !a ilusi6n de movimienio. 






Animacion . . 103 

zar las coordenadas y repctir cl mismo ciclo. Para simplificar el irabajo 
de altcrnar entre los dos dibujos, lo mas facil es aimacenar sus coordena- 
das en una matriz: 

10 MODE 1 

20 GOSUB 1000 

30 GOSUB 2000 

40 END 

998 REM leer en dos conjuntos de 26 coordenadas 
9<?9 REM pars dibujor dos posiciones del perro 
1000 DIM k (100) ,y(100> 
1010 FDR CDN=1 TO 32 

1020 READ x (con) ,y (con) 
1030 NEXT 

1040 RETURN 

1050 DATA 0,0,20,40,20,40, 10,80, 10, B0, 0,120, 10, 1 

0,35,20,35,50,10,80,10,8(5,70,80 

1060 DATA 60,0,80,40,80,40,70,80,80,10,95,50,95, 

50,70,80,70,80,90,140,90,140,110,120,110,120,80, 
110 

1070 DATA 5,10,25,40,25,40,15,80,15,80,10,120,0, 
15,30,50,30,50, 15,80, 15,80,75,80 

1080 DATA 73,80,85,40,85,40,65,10,75,80,90,50,90 
,50,60, 15,75,80, 100, 130,100, 130, 120, 110,120,110, 
90, 100 

1999 REM dibujar y borrar sucesi vamente el pei«ro 

2000 xinc=0 
2010 indicador-0 

2020 WHILE x (l)+xinc<639 

2030 IF indicador=0 THEN comi enzo«l: indlcador=l 
ELSE comien2Q=27: inc"icador=0 

2039 REM dibujo del perro 

2040 color-! i GOSUB 3000 

2049 REM borrado del perro 

2050 col or=0: GOSUB 3000 

2059 REM mover a la nueva posicion 

2060 xinc=xinc+20 
2070 WFND 

2080 RETURN 

2999 REM el perro se dibuja empalmando puntos 

3000 FOR con=comienzo TO comienzo+25 STEP 2 
3010 MOVE x (con)+xinc,y(con) 

3020 DRAW x (con+l)+«lnc,y(con+l> .color 



KM IHNUAS I.I |.H..«,H AM A« ION I.I UM.ICDS EN 1:1 AMSTRAD 



3030 NEXT 
3040 RETURN 



Io^ P ~H S a e r mUy biCn l ya qUC ,a CJCCUCi6n es ««numente lent*, 
lo que qucda claro es que hace falia otro tipo dc lecnicas 

h J^Tm ? r ° V c echar una P° s ibilidad que .ienc el Ams.rad de la que j 
hemos hablado. Se trata de la facilidad para cambiar la gama de color 

d m ^'7 " 'T; * dibUJam ° S Una ngUra C0 " -SS quc"5 

« ^ria°'°L qUe f ° nd ° ^ ' a Pama " a (iUeg ° inVisibIe >' P0*™« 2 
cer que aparezca repermnamente dando a la ti.ua del dibujo cualquier cc 
lor que contrasie con el del fondo: "<«quiertt 

30 xd=50:yd=100 

39 REM poner la tints 1 con el color del fondo 

40 INK 1,1 

49. REM dibujar un rectangulo usando la tints 1 
50 co2or = l:G0SUB 1000 
60 K-*00:y=300 
70 >rd = 100: yd=50 

79 REM poner la tinta 2 con el color del fondo 

00 INK 2, 1 

89 REM dibujar un rectangulo usando la tinta 2 

90 coIor«2:Q0SUB 1000 
100 continued 

109^ REM repetir los dibujos hasta que s* -prieto 

110 WHILE respuestatO-'e" 

119 RE*1 hacer visible la tinta l y la tinta 2 de 

1 color del fondo 

120 INK 1,24 
130 INK 2, 1 

139 REM en espera de que se pulse una tecla 

140 reapupBtata"" 

150 WHILE respuesta*="" 

160 respuesta«=LOWERS(lNKEY*) 
170 WEND 

179 REM hacer visible la tinta 2 y la tinta I de 
1 color del fondo 
1 B0 I NK 1,1 
190 INK 2,24 
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199 


REM en espera de que se 


200 


respuesta**"" 


210 


WHILE respuesta*="" 


220 


respuesta«=LOWER« ( INKEYH 


230 


WEND 


240 


WEND 


249 


REM tintas del color hab 


250 


INK 1,24 


260 


INK 2,20 


270 


END 


1000 


i MOVE H,y 


1010 


i DRAWR >;c,0, color 


1020 


1 DRAWR 0,yd 


1030 


DRAWR -«d,0 


1040 


DRAWR 0,-yd 


1050 


RETURN 



e pulse una tecla 



Las figuras estan ya dibujadas, lo que hace que su aparicion sea instanta- 
nea. Esta idea puede servir para producir un dibujo animado a base dc 
realizar dibujos del color del fondo y darles despucs un color visible. iPo- 
demos animar el pcrro de antes con este metodo? La respuesta es negati- 
va, debido a los problemas que se producen cuando se solapan dos figu- 
ras. Para entender estos problemas, lo mejor sera afiadir al programa an- 
terior las lineas: 

59 REM esta vez los das rectangulos se solapan 

60 x=12B:y=100 

y ejecutarlo. Parte de un rectangulo desaparece alii donde las figuras se 
superponen. Al dar a uno de los rectangulos el color del fondo, desapare- 
ce tambien la parte del otro rectangulo que coincide con &\. 

Siempre que las lineas no se solapen, los cambios de tinta pueden pro- 
porcionar movimientos suaves y rapidos. Hste m6todo es mas util en mo- 
do 0, en el que se dispone de 16 tintas. Se pueden dibujar entonces hasta 
15 figuras con el color del fondo, para, sucesivamente, hacerlas aparecer 
y desaparecer cambiando la tinta correspondiente a la figura. Por ejem- 
plo, el siguiente programa dibuja un rectangulo que se estira y se encogc: 



10 MODE 

19 REM posicion de comionia do la esquina del pi 
ctangulo 

20 xcom !£ 260E ycom=lB0 
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29 REM loggttud de 1 oa lados 




30 longitudx=20: longi tudy=20 




39 rem diferencia del tamano de log sucesivcs re 


ctangulos 




40 incK*8:incy=6 


50 tintacomMitintaf in=15 




60 GOSUB 1000 




70 GOSUB 2000 




80 END 




998 REM dibujar 15 rectangulos dol color del ton 
do 




999 REM uno dentro de otra 




1000 for con-tintacom TQ tinta-fin 




1010 INK con,l 




1020 movex=con*incx 




1030 movey=con»incy 




1340 ladox=longitudx+2«movex 




1330 1 adoy=longl tudy+2*movey 




1060 MOVE xcom-movex, ycom-movey 




1070 DRAWR ladox,0,con 




1080 DF.AWR 0, ladoy 




1090 DRAWR -ladoK,0 




1100 DRAWR f - ladoy 




1110 NEXT 




1120 RETURN 




1999 REM ciclo de cambio del color de las tintas 




para que aparezca un rectangulo cada vez 




2000 continuB=l 


2010 tintacom»l:tintasig*2 




2019 REM continuar indef inidamente 


2020 WHILE continued 




2029 REM se espera la pulsacion de una tecla 




2030 respuesta*="" 




2040 WHILE respuesta*="" 




2050 respuesta*=INKEY4 


2060 WEND 




2069 REM cambiar el rectangulo anterior al color 




del -fondo 




2070 INK tintacom,l 




2079 REM cambiar el siguiente rectangulo a color 




visible 




2080 INK tintasig,24 
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2(388 REN increnantar el numero de tinta para rep 

etir el ciclo de i notrucci ones 

208? REM la actual paea al color del fondo y la 

sigulente a color visible 

2090 tintacom=<tintacom+l ) MOD 16 

2100 IF tintacom=0 THEN tintacDm=»l 

2110 tint«sig-<t.int*sig*l) MOD It 

2120 IF tintasig=0 THEN tintasig=l 

2130 WEND 

2140 RETURN 

El metodo es especialmente eficaz cuando el dibujo animado es ciclico, 
como en este caso. El mayor problema es que no funciona corrcctamcnte 
si se solapan las distintas figuras. 

Ya vimos como, con la modalidad grafica XOR, es posible dibujar una 
Ifnea sin afectar a las ya dibujadas. Anadiendo las lineas 

15 PRINT CHR*<23>CHR*(1); 
265 PRINT CHR*(23)CHR*<0>; 

al programa de los rectangulos parcialmente superpuestos, podremos 
comprobar si la opci6n XOR sirve en este caso. La modificacidn funcio- 
na en parte, puesto que los dos rectangulos se ven ahora completamente; 
pero la parte en litigio aparece con un inoponuno color rojo. Podemos 
entcnder este resullado si reflexionamos sobre la represent acid n de los co- 
lores en el modo 1. 

En el modo 1 existen solo cuatro tintas diferentes. La razdn es que ca- 
da tinta emplea un codigo binario de dos bits y que hay exactamente cua- 
tro combinaciones posibles de dos bits. Los cddigos de las tintas nunca 
cambian, aunque se pueden cambiar los colores de las tintas y, por lo tan- 
to, el resultado efectivo. Por ejemplo, se puede dibujar un punto rojo 
con la tinta 1 usando el comando INK 1,6. 



ooooocoo 


Tinta (azul) 


La tinta da cada 


00000001 


Tinta 1 (amarillol 


punto se caracteriza 


ooooooio 


Tinta 2 (cyan intense) 


madiante un c6digo 


00000011 


Tinta 3 Irojol 


de 2 bits 



Figura 5.2. Codigos dc 2 bits para las tintas y colorca del 

modo 1. 
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En nueslro cjemplo concreto sc dibujan dos rectangulos; uno con la tin- 
la 1 (cbdigo 01) y el otro con la linta 2 (c6digo 10). Recuerdc cl efecio 
dc XOR: si los bits que se combinan son iguales, el resultado es 0; si son 
distintos, es 1 . Lo que ocurrc en los puntos donde los rectangulos se su- 
perponen se muestra en la figura 5.3: 



01 Un pun to de una tinea amarma 
XOR 10 supen>uesto coi uno de una linea cyan 
11 da un punto rojo 

Figura 5.3. 



Un punto dc una linea amarilla superpuesto con uno de una linea cyan 
da un punto rojo. EI resultado es el codigo II de la linta 3, o sea, la tinta 
roja. Por lo tamo, si hacemos que la tinta 3 sea amarilla en lugar de roja, 
habremos conseguido que se vea la parte superpuesta: 

11 REM tinta 3 de color amarillo 

12 INK 3,24 

261 REM tinta 3 a su color normal 

262 INK 3,6 

El solapamiento no resulta ya un inconveniente. Esto forma la base de 
un mctodo que produce una animacion bastante suave: 

1) la primera figura se dibuja en una tinta que contraste con el fondo; 

2) la segunda figura se dibuja en una tinta que tenga cl mismo color que 
la del fondo; 

3) se conmutan las tintas de las dos figuras, de forma que la segunda apa- 
rczca y la primera desaparuca; 

4) se bona la primera figura de la position que ocupa; 

5) se dibuja una nueva figura con la tinta de la primera; 

6) se conmutan las tintas, de forma que desaparezca la segunda figura y 
aparezca la nueva; 

. . . y asi repetidamente hasta completar la animacion. El unico problema 
esiriba en el solapamiento de las figuras, ya que entonces hace falta dibu- 
jar y borrar una figura sin afectar a la otra. Vamos a examinar cstc pro- 
blema de mas ccrca. 

Supongamos que estamos en el modo I y que utili/amos PEN 1 y 
PEN 2 para las dos figuras. No neccsitamos preocuparnos ahora del co- 
lor de cada tinta, que podremos clcgir como qucramos con el comando 
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INK. Vamos a conccntrarnos en los codigos dc 2 biis dc las linias y en 

el efecto que queremos conseguir. 

Para borrar la figura dibujada con PEN 1, lo que se neccsita es convcr- 
lir el codigo 01 de su tinia en el 00, que es el de la iinta del fondo. Podc- 
mos conseguirlo haciendo que sus puntos se combinen en modalidad 
XOR con puntos 01 . Sin embargo, los que se solapen con los de la segun- 
da figura seran punios 1 1 y, al combinarse medianle XOR con 01 , se con- 
vcrtiran en puntos de codigo 10. Esto es justamente lo que necesitamos. 



01 Un punlo de una linea amarilla 
XOR 01 al que se supetpone otta linea amairlla 
00 aa un punlo del color del fondo («u» 

Figura 5.4. 

Un pontO de una linea amarilla al que sc superpone oua linea amarilla 
da un punto del color azul del fondo 



11 Un punlo de las dos liguras 
XOH 01 al que se supetpone oua linea amarilla 
00 da un punto do color cyan 

Figura 5,5. 



Un punto de las dos figuras al que se superpone otra linea amarilla da un 
punto de color cyan. 

Pero a pesar de que todo parecc resuelto, conviene reflexionar aun so- 
brc otra cosa. Si un punto csla en la interseccidn de dos lineas de la mis- 
ma figura y se borra la figura con XOR, el primer borrado hara desapare- 
cer cl punto, pero el segundo hara que aparezca de nuevo. 

Podemos obtener el resultado correcto con una tecnica algo diferente, 
lo que nos lleva a ver otra de las modalidades graficas del Amsirad. 

El Amsirad admite tambien la modalidad grafica AND. La forma dc 
poner en marcha esta opcion es el comando PRINTCHR$(23)CHR$(2). 



0100H01 
AND 11100100 

01000100 



Figura 5.6. Un ejemplo del efecto de AND. 



I 10 l-iCtfKAl D E MOOHAMAflbN D8 OaAFICM EN U AM.ST<UD 

El : efecto del AND cs poncr un bit a I cuando valgan I los corrcsnoi 

~° e r a r fl rO r nC,US0 ^ ,0S mm ^ SC -cuenfran S | mu |t 
ncamcnte en ambas figuras, como muesira la figura 5 8 De la mism 

K2*Ti?!S!5* tima 2 sc bo,ran «^SS r* SmTS 

la modahdad AND, como mostramos en la figura 5.9. 



01 
AND 10 

00 



Un punio de una llnea amarflla 

8l que bo suoerpone una Hnea cyan 

da un punto del color del fondo lazul) 



11 

AND 10 

10 



Figura 5.7. 



Un punto de las dos figuras 

al que se superpone una llnea cyan 

da un punto de color cyan 






Figura 5.8. 



10 
AND 01 

00 



Un nunto do una linoa cyan 

al que se superpone una Ifnea arnarilla 

da vn punto Cel color del fondo iazull 






Figura 5.9. 



Vamos a ver lo que ocurre ahora con el problema de dibuiar sin alrrmr 
ia . Los resultados que convene obtener con los distintos ountos nara 

3£ lESS* de no deslruir '° que ya es «* SBKC 

r„ «» I""- q " e n ' a modalidad normal, ni la XOR ni la AND sirven oa- 

« SEE** ero F : xis,e E2?" dc ,a que a0 " no *-*£E£L 

CHwamS™ ^ m se ac,iva con el comando PRINT 

d~ h CHR «»- Da como resultado un 1 cuando es 1 alguno de lo, 
dos bus que 5C componen, y o cuando ambos son 
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Codigo de la lima con la que csia 
dibujando el punio 



I 

10 

1 1 



Cddigo que coitvicnc que rcsultc irus 
dibujar encima una linea de u'nta I. 

I 

I 

1 1 

1 1 



Figura 5.10. 



0100110) 

OR 11100100 

11101101 



Figura 5.11. Un ejemplo del efecto de OR. 

Es facil comprobar que, al dibujar con la lima l en la modalidad OR. 
se obtienen justamente los resuhados apetecidos. Resultados similares se 
obtienen cuando se dibuja con la tinta 2 en la modalidad OR, como sc 
puede ver en la figura 5.12: 



oo 

OH 10 

10 



01 

OR 1G 
11 



10 

OR 10 

10 



OR 



11 
10 

11 



Figura 5.12. 

Podemos poner en practica lodos estos conocimientos para desplazar un 
iriangulo por la panlalla: 



10 MODE 1 

20 INK 3,24 

3B DEFINT c,t,x,y 

40 K=100:y»100 

50 >:l = 100:yl=200 

60 col or =1 : col or 1=24 

70 tipo=i: tono=l 

B0 G0SUB 1000 

90 GDSUB 2000 
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100 


tipo=3:tono»2 




ue 


WHILE >c<639 




120 


x=x+4:xl=x 1+4 




130 


60SUB 2000 




140 


G03UB 1000 




150 


xaK-4:xl«j:l-4 




160 


BOSUB 7000 : :< =x +4 : m 1 =k 1 +4 




170 


IF tono=2 THEN tono=l ELSE tono=2 




180 


WEND 




:89 


REM tintas de los colores usual es 




190 


I NK 1 , 24 




200 


INK 2,20 




210 

220 


INK 3,6 

END 



998 REM connutaclon de Ins tinta=; la. del color 
del fondo pasa a visible 

999 REM y la de color visible pasa al del tondo 

1000 IF rrolor = l THEN col or=24: color 1=1 ELSE colo 
r = l :cal ar 1=24 

1010 INK 1, color 

1020 INK 2, colorl 

1030 RETURN 

199B REM la rutina borra y dibuja cuando el tria 

ngulo no es visible 

1099 REM <o cea, iruanda esta del color d«?l -f-ando 

) 

2000 PRINT CHR«<23> jCHR*<tipo) ; 

2010 MOVE x,y 

2020 DRAW xl,yl,tono 

2030 DRAW xi+S0,yl 

2040 DRAW «+-50,yl 

2050 DRAW >;,y 

2060 IF tlpO=>Z THEN tipo=3 ELSE tipo=2 

2070 RETURN 



La lfnca 150 hace retroceder al triangulo precedente. para borrarlo cuan 
do el color de su tinta es invisible. La linea 1000 cambia las tinias pan 
que las figuras aparezcan y desaparezcan. La 2060 iniercambia las opcio 
nes OR y AND. Tambien se puede Utilize! la interna lecnica para hacei 
que sc mueva nuestro antiguo perro: 
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10 MODE 1 

14 REM para mayor velocid«d »e utilizon nuneros 

enter os 

15 DEFINT c,s,t,x,y 

20 GOSUB 1000 

30 GOSUB 2000 

40 PRINT CHR*<23>CHR*<0>; 

50 END 

998 REM lectura en dos con juntos de 26 coordenad 
as 

999 REM para Cibujar dos posiciones di-ferentes d 

el perro 

1000 DIM x <100) ,y(100) 
1010 FOR con*3 TO 52 
1020 READ ii (con) , y icon) 

1030 NEXT 

1040 RFTURN 

1050 DATA 0,0,20,40,20,40,10,80,10,80,0,120,20,1 

0,35,50,35,50, 10,80, 10,60,70,80 

1068 DATA 60,0,80,40,80,40,70,80,80,10,95,50,95, 

50,70,80,70,80,90,140,90, 140,110, 120, 110, 120,80, 

110 

1070 DATA 5,10,25,40,25,40,15,80,15,80,10,120,0, 

15,30,50,30,50, 15,80, 15,80,75,80 

10B0 DATA 75,00,85,40,05, 40, &5, 10,75,90, 90,50,90 

,50,60, 15,75,80, 100, 130, 100, 130, 120,110, 120,110, 

90, 100 

1999 REM la tinta 3 con el color que interesa pa 

ra X0R 

2000 INK 3,24 

2010 color=l:colorl=24 

2020 tipD=3:tono a! l 

2029 REM dibujo de la -figura en la posiclon tnlc 

1*1 

2030 GOSUB 4000 
2040 GOSUB 5000 
2050 tipo=3:tono=2 
2060 «inc=0 

2070 WHILE x (l)+xinc<639 

2079 REM se actualize xinc para la nueva figura 

20B0 xinc*xinc+20 

2089 REM dibujo de la nueva figura en el color d 

el fondo 
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2090 GOSUB =000 

2099 REM conmutacion de las tintas 

2100 GOSUB 4000 

2109 REM se borra la -figura previa cuando est 
a del color del fondo 

2110 xinc=*xinc-20 
2120 GOSUB 5000 

2129 REM 6e actualiza xinc para la figura actual 

2130 xinc=xinc+20 

2140 IF tono-2 THEN tono-1 ELSE tono»2 
2150 WEND 
2160 RETURN 

2999 REM el perro se dibuja empalmando puntos 

3000 FOR con=comienzD TO comienzo+25 STEP 2 
3010 MOVE x (can)+xinc,y(con> 

3020 DRAW x<con+l>+xinc iy <can+l>,tono 
3030 NEXT 
3040 RETURN 

3999 REM conmutacion de colores 

4000 IF color— 1 THEN color=24i col orl-1 ELSE cola 
r*l:color 1=24 
4010 INK 1, color 
4B20 INK 2,CDlorI 
4030 RETURN 

4999 REM cambio del modo gra-fico entre dibujo y 
borrado 

5000 PRINT CHR«(23)CHRt(tipo); 

5010 IF tipo-tono-4 THEN comienzo=l ELSE comienz 
o=27 

5020 GOSUB 3000 

5030 IF tipo»2 THEN tipo=3 ELSE tipo=2 
5040 RETURN 



La animaci6n que se obtiene asf es bastante suave. 






Ejercicios 

1. Dibuje una serie dc circunfcrcncias iguales en diferentes posiciones y 
con diferentes tintas, dc mancra que, al canibiar |oa coloies de las tin- 
tas cntre el del fondo y el color visible, se reproduzca el bote de una 
pelota. 
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2. Consiruya, uiilizando rcctas, dos figuras de un gimnasta que realicc un 
cjcrcicio con los brazos, animando cnlonccs cl movimicnto mcdianle 
el empleo de lintas. 



ORDEN DE PRIORIDAD DE LOS COLORES 

Vamos a ver otra consecuencia de la manipulaci6n de ttntas. El progra- 
ms siguiente dibuja dos rectangulos que se solapan parcialmente; esta vcz 
se trata de rectangulos rellenos de color, uno amarillo y oiro azul: 

10 MODE 1 

19 REM hacer amarillo el color cercana 

20 INK 3,24 

30 PRINT CHR*<23)CHRt (1) ; 

40 >: = 100: y=100 

50 ; ;d=5Q:yd = 100 

60 INK 1,24 

70 color^liGOSUB 1000 

80 x=10E:y=100 

90 xd=100:yd=50 

100 INK 2,20 

110 color=2:G0SUB 1000 

120 FRINT CHR*<23>CHR*(0>; 

130 END 

999 REM rectangulo relleno de color 

1000 FOR xcord=>! TO M+xd STEP 2 
1010 MOVE xcord,y 

1020 DRfiWR 3, yd, color 
1030 NEXT 
1040 RETURN 

AI ejecutar el programa no le sorprendera el hecho dc que uno de los 
rectangulos tape parte del otro. Lo que le sorprendera seguramente cs 
que sea el amarillo, que se ha dibujado primero, el que tape al azul, que 
se ha dibujado mas tarde. La responsable es la linea 20, cuya conse- 
cuencia practica es convertir en amarilla el jfcrea comun a las dos figuras. 
Esto significa que hemos decidido que el amarillo sea el color del primer 
piano y el azul el color del fondo; por eso hemos dado prioridad al ama- 
rillo. 

Basta con cambiar la linea 20, haciendo que el area comiin sea azul, y 
sera* el rectangulo azul el que lape parte del amarillo: 



lift 
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19 REM hacer azul el color cercano 




20 INK 3,20 



Es muy usual en ios programas de juegos emplear esta posibilidad de dar 
prioridad a un color. Con un manejo adecuado de INK se logra que una 
figura pueda pasar sobre los dibujos del fondo sin borralos; o, lo que es 
lodavia mas impresionante, que pueda pasar por detras de oiras figuras 
y salir indemne por el lado contrario, como vamos a demostrar ahora. 
Vimos en el capi'tulo 2 que una de las formas mas sencillas de producir 
un dibujo animado es utilizar la sentencia TAG e ir escribiendo un carac- 
ler en sucesivas posiciones. El efecto que esto produce cuando en la pali- 
lalia hay dibujados objetos es previsiblc: 

10 MODE 1 

20 x=230:y=130 

29 REM dibujar y rellenar un rectangulo 

30 FOR xcorflsx TQ X+10C STEP 2 
40 MOVE xcord,y 

50 DRAWR 0, J00, 1 

60 NEXT 

70 xprint=0: yprint=180 

79 REM texto en el cursor grafico 

E0 TAB 

B9 REM escribir el caracter en las sucesivas poa 

iciones 

90 FOR xcord=xprint TO 400 STEP 2 

100 MOVE Kcord, yprint 

110 PRINT CHR*(233> ; 

120 NEXT 

130 END 



Como era I6gico, el caracter elimina todo aquello sobre lo que pasa. El 
efecto es aun peor si el caracter es de Ios que no tienen un borde bianco 

a la izquierda: 

109 RFM caracter quo es un- f loch a sin borde bla 
nco a la Izquierda 

110 PRINT CHR*(243> ; 

La soluci6n es usar TAG en combination con la modalidad grafica XOR. 
Ann asi, no hasta con limitarse a escribir el earacter: 
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10 MODE L 

20 x«23Osy»130 

29 REM dibujar y rellenar un rectangula 

30 FOR >:cord=>; TO x + iBB STEP 2 
40 MOVE ncord,y 

50 DRAWR 0, 100, 1 
60 NEXT 

70 xprint-0: ypr int~lB0 

71 REM opcion XOR 

75 PRIMT CHR*<23)CHR*(1) ; 
80 TAG 

B9 REM escribir el caracter en las sucesivas pos 

i ciones 

90 FOR xcord=xprint TO 400 STEP 2 

100 MOVE xcord.yprint 

110 PRINT CHR*<243> ; 

120 NEXT 

129 REM opcion grafica normal y raodo texto norma 

1 

130 TA30FF 

140 PRINT CHR*(23>CHR*<0> ; 

150 END 

El resultado es aun peor. La razon del fracaso es que, al combinar en la 
modaiidad XOR un caracter con otro igual desplazado un punto a la derc- 
cha, lo que resulta no tiene nada que ver con el caracter original. 

Vamos a utilizar una flecha disenada por nosotros con un bordc bianco 
a la izquicrda; es la dc la figura 5.13. 




Figun 5.13. Un caracter con borde bianco a la izquicrda. 



iik 
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Estc caracier lo dibtijaremos a la izquierda de la pantalla y lo iremos 
desplazando hacia la dcrccha un punto cada vez. La forma de haccrlo no 
va a scr, Idgicamente, componerlo en !a modalidad XOR con el propio 
caracier desplazado; eso ya sabemos que no funciona. Lo que haremos 
sera definir un segundo caracier que, al componerlo con la flccha en la 
modalidad XOR, de una copia de la (lecha desplazada un punto. La figu- 
ra 5.14 esquematiza lo que queremos hacer. 



Flecha origi- 
nal (esiaifa 
debajo de la 
cuadrfcula 
de puntos) 



• • > rr 

r-f-t-T-* 



I 



1 ~ 



l 



U -, 




C 3i Acto- que se 
sobreessribe desplaza- 
do un punto 



despu6s de 
XOR 




Debe resultar la flecha 
original desplazada un 
punto hacia la 
derecha 






Figura 5.14. Composition con un segundo carrier en la 
modalidad XOR para crear una copia del primero desplazada 

un punto. 
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Es fdcil buscar cl scgundo carictcr que necesiiamos. Una forma de 
hacerlo es proceder por tanteo fila por fila de puntos, como mueslra la 
figure 5-15 para la primera fila. 



00001000 
XOR 00011000 

oomiooo 



Primera fila de la flecha 181 

compuesta con XOR con aste numaro (24) 

da la primera frta da la flecha daapUzoda 18) 



Figura 5.15. 



Pero hay un recurso mas sencillo que se basa en el hecho siguicntc: si 
secomponeun numero binario con unsegundomediantcXOR, y el resul- 
tado se compone con el primer numero, lo que resulta ahora es el segundo 
numero. Lo que se hacc ciuonccs cs componcr (con XOR) la flecha con 

la flecha dcsplazada; el resultado sera el caracter que hay que componcr 
con la flecha para obtener la desplazada. En las figuras 5.16 y 5.17 se 
muestra claramente este proceso. 



00001000 
XOR ooooiooo 

O0C 110O0 



Primera lita de la flecha 18) 

compuesta con el resultado que se desea (8) 

da ol numero con el qua hay qua compone* (24) 



00001100 
XOR OOC01100 
00010100 

00001110 
XOR OOC01110 
OOC10010 



Hgura 5.16. 



n&Qimria fila rfe h ftecha 112) 

compuesta con el resultado que se desea 02) 

da el numero con el que fray que ODrnponer {20) 

Tercera lila de la flecha (14) 

compuesta con el resultado que se desea (14) 

da el numero con el que hay que ODmponer (18) 



y lo mismo para las restantes Was 



Figura 5.17. 



Vamos a incorporar los dos caracteres en un programa, para demostrar 
como se realiza el desplazamiemo dejando intacto el fondo: 



94 REM d©f ini ci on d©l <z&ract&r -f 1 echa 
35 SYMBOL 240,9,12,14,127,127,14,12,8 
86 REM definician del c&racter auxiliar para XOR 
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B7 


5VMBQL 241,24,20,18,129,129,18,20, 


,24 




90 


FOR xcard=xprint TC 400 STEP 2 






100 


MOVE >:cord,yprint 






IBS 


REM escribir la flecha normal en 


la prinera 


posi cion 


* 




109 


REM y usar XOR para trasladar la 


flecha a la 


siguiente posicion 






110 


IF ncord-xprint THEN PRINT CHR*(240)j 


ELSE P 


RINT CHR*<241> ; 






120 


NEXT 






129 

1 
130 


REM opcion grafica normal y modo 


tejito norma 


TAGOFF 






140 


PRINT CHR*(23)CHR*(0) ; 






150 


END 







Con esto lencmos la puerta abierta a lodo lipo de efectos en los progra- 
mas dc jucgos. Combinando TAG, XOR y los cambios de color de las 
tintas, podemos diseftar todos los tipos de comportamiento que son nece- 
sarios en los juegos. Se puede hacer que e! protagonista sea capaz de atra- 
vesar los obstaculos amarillos de la pantalla, pero no los azules; que el 
monstruo que le persigue atraviese solo las barreras azules; o que nada de- 
lenga al supcrmonstruo cuando persigue al protagonista. 

Cuando cree un caracter que se desplace, debera recordar que debc di- 
seflarlo con un borde bianco de un punto de ancho. De otra manera, ira 
dejando un rastro at desplazarse. EI borde debe estar en la posicion 
opuesta a la direccion del movimienio. La flecha de nuestro ejemplo lo 
llevaba a la izquicrda porquc debia desplazarse hacia la derecha. 

Si va a desplazar un caracter en todas las direcciones, debera disenar 
un caracter auxiliar diferente por cada direccion del movimienio. em- 
pleando cada caracter al realizar el desplazamiento en la correspondiente 
direccion. 

No hay por que limitarsc a utilizar figuras con un solo caracter (aunquc 

son las mas sencillas). El siguiente programa crea un coche compuesto 
por tres caracteres, y la correspondiente figura auxiliar foimada tambien 
por tres caracteres. El coche se mueve a lo largo de la pantalla, pasando 
dctras de los bloques amarillos y dclante de los bloques de color cyan: 

10 MODE 1 
20 GOSUB 100a 
30 GOSUB 2008 
40 GOSUB 3000 
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1 

50 TAGOFF 


60 PRINT CHR»<23)CHR*<0) j 


70 END 


998 REM las areas de solapamiento seran de la ti 


nt« 3 que heraos hecho amarilla 


999 REM esto equivale a considerar mas cercano • 


1 piano del color amarillo 


1000 


INK 3,24 


101(9 


y=100: color-1 


1020 


FOR x=100 TD 300 5TEP 30 


1030 


BOSUB 4000 


1040 


NEXT 


1050 


RETURN 


2000 


SYMBOL 240,0,15,28, 124,127, IB, 12,0 


2010 


SYMBOL 241,0,255, 120, 120,255,255,0,0 


2020 


SYMBOL 242,0,128, 192,254,254,72,48,0 


2030 


SYMBOL 243,0,16,36, 132,128,55,20,0 


2040 


SYMBOL 244,0,0,137,137,0,1,0,0 


2050 


SYMBOL 245,0,128,64,2,2,216,80,0 


2060 


coche*=CHR* (240) +CHR* <241 > +CHR* (242) 


2070 


cocheK or *=CHR* < 243 > +CHR* < 244) +CHR* < 245) 


2080 


RETURN 


3000 


PRINT CHR«(23>CHR*(1> ; 


3010 


TAG 


3020 


xpr int=fl: yprint=l 16 


3030 


FOR xcord=xprint TO 550 STEP 2 


3040 


MOVE xcord,yprint 


3050 


IF xcord^xprint THEN PRINT coche*; ELSE PRI 


NT cochexort; 


3055 


r*«"": WHILE r*«" "ir*=INKEY*: WEND 


3060 


NEXT 


3070 


RETURN 


4000 


IF color=l THEN calor=2 ELSE colar=l 


4010 


FOR xcord=x TO x+3B STEP 2 


4020 


MOVE xcord.y 


4030 


DRAWR 0,100, color 


4040 


NEXT 


4050 


RETURN 


La linea 1000 consiguc que la parte en que se solapan el cochc cyan y cl 


b!oquc amari 


ilia quede dc color amarillo. Si sc cambia poi INK 3,6 (color 


habitual de 1 


a tinta 3), el coche se volvera rojo al pasar por los bloqucs 


amarillos. 


* 
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EI hecho de que el coche se convierta en azul (color del fondo) cuando 
pasa sobre un bloque cyan deteriora bastante el bucn cfcclo. Esto cs de- 
b.do a que se superponen con XOR dos figuras con la misma tinta, con 
lo que el resultado es 0, que es la tinta del fondo. 



0010 
XOR 0010 



Un punto cyan 

solapado por otro punto cyan 



000J da un punto del color del fondo lazuli 
Figure 5.18. 



La soluci6n al problema estarfa en dibujar los bloques cyan con otra 
tinta y preparar la tinta resultante para que de el color adecuado. EI oro- 
blema cstnba en que d modo I admite 4 tintas y serian necesarias altunas 
mas. EI modo 0, con sus 16 tintas, permite hacer lo que hemos dicho: 

10 MODE 

998 REM tinta 3 amarill* psra que resulte adecua 
do el i-e^ltddo del solapamiento cyan/amar i 1 lo 

999 REM amarillo es el color de primer piano 

1000 INK 3,24 

1001 REM tinta 6 cyan para que resulte adec'uado 
el resultado del solapamiento cyan/bianco 

1002 REM bianco e S el color del fondo 

1003 INK £,20 

2071 MOVE 0,0 

2072 DRAW 0,0,2 

3030 ^OR xcord=>;print TO 550 STEP A 

40(23 IF color=i THEN color-4 ELSE colore 

4010 FOR xcord=;; TO x*30 STEP 2 

4020 MOVE >:corc*,y 

4030 DRAWR 0, 130, cilor 

4040 NEXT 

4050 RETURN 

En el modo cad a tinta se represcma por cua.ro bits. El coche es de la 
tinta 2, y puede pasar sobre bloques amarillos (de tinta 1) y sobre bloques 
blancos (de tinta 4). A la vista de la figura 5.19, io que habra que hacer 
sera convertir en amarilla la tinta 3 y en cyan la 6; cs lo que se ha hecho 
en el programa en las Ifneas 1000 y 1003. 
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001O B coche cyan 

XOR C001 sobrft un Woque amarillo 

COT 1 rosulta de la tints 3 Iroja poi defectot 

C010 B coche cyan 

XOR 0100 sabre un bloque bianco 

0110 results de la tinta 6 (azut intwiso por de(ecto) 



Figura 5.19. 
Tambien se puede hacer que el coche pase por delante de los bloques 

amarilios y por detr&s de los blancos: 

7VL! REN tinta 3 cyan para que result© adecuado e 
1 resultado del solapamiento cyan/amarillo 

999 REM ahora amarillo es el color del *ondo 

1000 INK 3,20 

1001 REM tinta 6 blanca para que resul te adecuad 
o el r ebultdUo del sol apami en to cyan /bianco 

1002 REM ahora bianco ©a el color de primer plan 
o 

1003 INK 6 f 26 

Hay que advertir que surge una pcqucfia complicacidn por el hecho dc 
que, al usar TAG, la escritura de caracteres se hace con la linta de la plu- 
ma grafica; esta tinta s6Io se puede cambiar con los comados grSficos. 
Para que el color del coche sea cyan, la tinta de la pluma griifica debc 
cambiar de 4 (blanca) a 2 (cyan). Esa es la raz6n de las Hneas 2071 y 2072, 
sin las cualcs cl coche sc dibujarA en bianco. 

El modo ofrece las mejores oportunidades para crear diferenies pia- 
nos con los colores, dado el muestrario de tinias que permile. Podcmos, 
por ejempio, seleccionar colores de fondo, intermedios y de primer plano t 
como en la figura 5.20- Con esa distribuci6n, el bit mas a la derecha indi- 

ca presencia de amarillo, color Icjano; cl siguicnte bit indica presencia de 

cyan, color intermedio; e) siguiente indica bianco, que es el color del pri- 
mer piano. Otras combmaciones de bits muestran el ocultamienio de 
unos colores por otros. 

Con la option XOR podemos dibujar o borrar Hneas de cualquier color 
sin altcrar las superficies solapadas o las Hneas ocultas de otros colores, 
Como ejemplo, veamos el efecto de XOR sobre una linea blanca siluada 
en un piano proximo, que oculta una linea cyan situada en un piano me- 
dio, que a su vez oculta una linea amarilla situada al fondo. El efecto 
dc borrar la linea blanca se ve en la figura 5.21 , y el efecto de borrar la 

linea cyan en la figura 5.22. 
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0000 


Azul - fonoltjano 


0001 


Amarillo — lomto prdximc 


0010 


Cyan - piano medio 


0011 
0100 


Cyan - piano medio tspando fondo pr6xtfno 
Btonco — primer piano 


0101 
0111 


Blanco - prim** piano tapando foido pfdximo 


Blanco - primer piano tapando piano medio, que a su vez taw fondo pi6ximo 


Fig iii 


a 5.20- Creacidn de difcrenic* pianos dc colores, eligiendo colores 




adccuados para las timas, 

0111 RUnrn i-iLtA *wJ+«* »» c. 



XOR 0100 at borrar el bianco 
0011 oporece el tyaft 

Figure 5.21. 



ww> ?«.'! B,anC0 aue ocul,a cvan ""• ocu,Ia amarillo 
*wn uoiu a' borrar el cyan 

0T01 queda bianco que oculta amarillo 
Figure 5.22. 

Es decir, sc pueden borrar colores sin alierar los que esten en otros pia- 
nos. El programa siguiente dibuja una supcrficie blanca sobre una cyan 
que csta a su vcz sobre una amarilla, permitiendo comprobar el efecio de 
borrar o dibujar cualquiera de esias superficies: 

10 MODE 

20 BDSUB 1000 

3d GuSUS 2000 

40 BOSUB 3000 

50 PRINT CHR*(23)CHRt(0>- 
60 MODE 1 

70 END 

999 REM tintae con los color,, apropiaaos 

1000 INK 3,20 

1010 INK 5,26 
1020 INK 6,26 
1030 INK 7,26 
1040 RETURN 

1999 REM dibujar tr eB rect.ngul o« uno encima de 
otro 
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2000 xamarillo-100:yamarillo=40:ladoamarillo»300 

20 IB xeyan<a5O:ycyar,=80:ladocyan=220 

2020 xblanco=200:yblanco=120:ladoblanco=140 

2029 REM opcion XOR 

2038 PRINT CHR*(23)CHR*U> i 

2040 col or*l s x=x amar i 1 1 ot y=yamar i Hot 1 ado=l adoam 

villa 

2050 GOSUB 4000 

2060 colar=2:x=xcyan:y=ycyan:lado=ladocyan 

2070 DOSUD 4000 

2080 color=4!X=xblanco:y=yblanco: lado=ladoblanco 

2090 GOSUB 4000 

2100 RETURN 

3000 WINDOW 1,20,23,25 

3009 REM peticion de comanda 

3010 WHILE respuesta*<>"e" 

3020 INPUT"Comando <a/c/b/e> ",respuesta* 

3029 REM dibujo o borrado del amarillo 

3030 IF respuesta*="a" THEN color»l:x=xamaril 1 o: 
y=yamar ill os lado=ladoamarillo: GOSUB 4000 

3039 REM dibujo o borrado del cyan 

3040 IF respuestat^"c" THEN color=2tx=xcyan:y-yc 
yan: Ladc-ladocyan:GOSUB 4000 

3049 REM dibujo o borrado del bianco 

3050 IF respuesta*="b" THEN color=4: x=xblanco: y- 
/b 1 anco: 1 ado=l adobl anco: GOSUB 4000 

3890 WEND 

3900 RETURN 

4000 FOP xcord=x TO x+lado STEP 4 

4010 MOVE >:cord,y 

4020 DRAWR B.lado, color 

4030 NEXT 
4040 RETURN 

La linca 3020 solicita una letra *a\ V o *b' para borrar o dibujar la supcr- 
ficie amarffla, cyan o blanca (V es para terminer). Borrando o dibujan- 
do cualquiera de las superficies comprobara que no se alteran las demas. 
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Kjcrcicios 

1. Deflna un barco con uno o mas caractcres, junto con los caracteres 
auxiliares para desplazarlo con la opcion XOR a lo largo de la 
pantalla. 

2. Mejore el programa para que el barco navegue en una masa de agua 

azul y por delante de un grupo de arrecifes blancos que sobresalaan de! 
agua. 

3. Anada unas colinas de hierba que se vean deiras del barco. 

4. Ponga otro barco navcgando en scntido conirario. AI cruzarse, uno 
pasara delante del otro. 

5. Cambie el orden de prioridad de los colores en el programa de las tres 
superficies rectanguiares, de manera que el amarillo est* en primer pia- 
no y cl bianco al fondo. AI comienzo, solo deber£ verse el rectangulo 
amarillo, y e! bianco debcra aparcccr unicamenledespuds de borrar los 
otros dos. 

6. Anada un cuarto rectangulo de color diferente y que sea mas cercano 
que los otros tres. El bianco quedara en un piano medio delantero y 
el cyan en un piano medio trasero. Ajuste tintas y colores para que 
cada uno pueda anadirsc o borrarsc sin altcrar los demas. 
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En el capitulo 4 desarrollamos un programa que permitia al usuario dibujar 
en la pantalla y grabar el dibujo en un lichero para su utilization posterior. 
Ahora vamos a pel feccionarlo con la inclusion de potibilidades talcs como 
dibujo y coloreado de circulos, rectangulos y otras figuras. 

SELECCltiN A PARTIR DE UN MENU 

El programa que teniamos se gobernaba exclusivamente pulsando deter 
minadas teclas, Pero muchos programas de este lipo funcionan mediantc 
selecci6n a partir de un menu dibujado en la pantalla. Se irata de un di- 
bujo que representa las opciones que puede escoger el usuario: selecci6n 
dc una figura, setecctdn de un color, escala para el dibujo, etc. (V£asc 
la figura 6.1.) 



C«<flB( 


Cambkr 
color 


Soov 


Borrtr 
pontdls 


Escsla 


O 


D 


A 


/ 



Figura 6.1. Menu tipico de un programa de dibujo. 



La seleccion se rcaliza llevando el cursor a la oprion deseada. El orde- 
nador loma noia de la position del cursor y lleva a cabo la opci6n indica- 
da en dicha posicion. Este sistema hace mas sencilla la eleccidn, siempre 
que los dibujos del menu tengan un significado suficiememente ciaro. 
Con 61 no hacc falta rccordar cjuC tccla hay que pulsar para cambtar cl 

color de una linea, dibujar una circunferencia, etc. 

Sin embargo, hay cosas que se controlar6n mediame teclas (o con los 
mandos de juego, que es lo mismo). Las mas evidenles son los movimien- 
tos del cursor y la fijacion de un punio; nosotros dejaremos tambien para 



127 



I2K IY.cnicas or. frim.kamai i«»n m cmXncos i;n el Amstrad 

cl tcclado la altcrnaiiva cnirc dibujar o no dibujar la linea. Para esias 
funcioncs, es fastidioso tenet que pcrder cl liempo recorriendo cl menu 
con el cursor. 

Nueslro nucvo programa incluye la opcion de seleccionar el color de las 
lineas (emre ocho posibles, incluyendo cl del fondo), y tambien la de di- 
bujar rectas, circunferencias, trtengulos o recl^ngulos. Otra opcidn es la 
de rellenar o no rellenar una figura cerrada. 

Para seleccionar la opcidn en el menu, hay que pulsar la barra espacia- 
dora (que se uiiliza tambien para fijar los puntos) cuando el cursor se en- 
cuemra sobre la opcion descada. Como resultaria diftcil recordar las op- 
ciones que se han elegido, estas se representan mediantc un caractcr que 
aparece en la esquina inferior izquierda de la pantalla, que sirve para re 
flejar la situacion actual. El menu aparece en la parte baja de la pantalla, 
aunque esto es cuestion de gustos; hay quien prefiere que este arriba o en 
un lateral. 

Vamos a comenzar por la parte basica del programa: 

10 MODE 

20 GOSUB 1000 

30 BOSUB 2000 

40 END 

1000 :<ant=323:yant=>200 

1010 >:=xant: y=yant 

1020 colorvisible=l 

1030 line«adib=0 

1037 REM imprimir el simbolo de la esquina infer 
ior izquierda 

1038 REM para que se tenga a la vista la situaci 
on actual 

1039 rem info* es una linea amarilla al prlnclpi 
o, que es la opcion de entrada 

1B40 info*=CHR*<47> 

1B50 LOCATE 1,24 

1060 PRINT info*; 

1070 menux=5:m»nuy=24 

1079 REM definir simbolo para triangulo y para r 
elleno/no relleno 

1080 SYMBOL 240,0,2,6,10,18,34,66,254 

1090 SYMBOL 241,253,129,129,129,129,129,129,255 

1099 REM dibujar mupstras de color de las tintas 
a 7 

1100 LOCATE menux,menuy 
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1110 PRINT CHR«(241) j 

1120 FOR color=l TO 7 

1130 PEN color 

1143 PRINT CHR*<143>; 

1150 NEXT 

1160 PEN 1 

1169 REM dibujar simbolos de 1 inea, ci rcunf erenci 
a.rectangulD, tri anqulo y no rellerto 

1170 PRIMT CHR*<47ICHR*(79)CHR*(232)CHR*<24G>CHR 
*(241) ; 

1180 PRINT CHR*<23)CHR«<1) ; 

1900 RETURN 

199? REM cursor a la posicion inicial 

2000 GOSUB 3000 

2009 REM repetir hasta que se pulse ' e* 

2010 WHILE respuestatO-e" 

2019 REM bo.-rar el cursor con XDR 

2020 GOSUE< 3000 

2029 REM leer la entrada del teclado 

2030 GOSUB 4000 

2039 REM dibujar el cursor 

2040 GOSUB 3000 
2900 WEND 

2910 RETURN 

2999 REM rutina de dibujo/borrado de lineas 

3000 PLOT K,y,colorvisible 
3010 IF lineadib=0 THEN RETURN 
3020 DRAW Kant,yant 

3030 RETURN 

3999 REM rutina para examinar el teclado y tomar 
la decision apropiada 

4000 respuestat=LOWERt (INKEY*) 
4010 IF respuesta*="a" THEN y=y+2 
4020 IF respuesta*="z" THEN y=y-2 
4030 IF respuestat«=", " THEN x=x-4 
4040 if respuesta*=". " THEN x=x+4 

4048 REM la barra de espacio fija el punto 

4049 REM si la coordenada y corresponds a la ?on 
a de dibujo 

4050 IF respuesta*=" " AND y>31 THEN GOSUB 5000b 
X lneadlb-col orvisibLe 

4059 REM si no, la barra de espacio selecciona o 
pcion del menu 
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4060 IF r..p U ..t.»-» n AND y<32 THEN G0SUE 6000 

4069 REM conmutar .ntre .i /no el dibujo de la li 

4070 IF re S pue a ta»*"l» THEN IF lineadib=0 THEN 1 

ineadib=colorvisible ELSE lineadib=0 
4900 RETURN 

4999 REM dibujar de manera permanent© un* linea 

5000 PRINT CHR*<23)CHR*< 0)i *""* 
5010 GOSUB 3000 

5020 PRINT CHRt(23>CHR*(l)i 
3030 xant«x: yant=y 
5900 RETURN 

5999 REM elegir opcion del men u, se r.chaza si n 
o esta en el menu 

6000 IF *<128 OR x>543 OR y<16 THEN RETURN 
6010 SOUND 7,400 

z\?: :ir signifi " ^ ia — - - - 

^=™r ™ EN -— ™ (z , y)!G0SUB 

6C29 REM deducir opcion seQ un s* a la C oord e nad fl 

X 

6030 IF x<416 THEN in*o*=CHR* (47) i GOSUB 7O00, RET 
URN 

6040 IF K <44B THEN info^CHR* (79) , GOSUB 7000 : R ET 
6050 IF x<480 THEN in* o.=CHR* (232) :G0SUB 7000rRE 

TURN IF X<512 ™ EN inf °* ,BCHR » (240) ^OSUB 7000:RE 

6069 REM deb* « r 1. opcicn d. conmutar relleno/ 
no relleno 

6070 GOSUB 15003 
60QQ RETURN 

7000 pen col orvi Bible 

7010 LOCATE 1,24 

7020 PRINT info* 

7030 RETURN 

15000 R EM a cumpletar d»pu.« 

15010 RETURN 






. . . Y DIBUJO ARTlSTICO 1 1 1 

Esia pane permite ya elcgir las opciones, aunque, por el moment o, s6lo 
es operativa la posibilidad de dibujar rectas de diferentes colores. 

El ordenador considera que se desea elegir una opcidn, en lugar de fijar 
un punto, cuando la coordenada Y del cursor es menor que 32 en el mo- 
memo de pulsar la barra espaciadora. Las lineas 4050 y 4060 podrian 
combinarse en una sola sentencia IF . . . THEN . . . ELSE, pero las nemos 
separado para mayor claridad. La subrutina 6000 comprueba si la coor- 
denada X corresponde al area del menu y realiza la eleccion dependiendo 
del valor de la coordenada. La 7000 dibuja el caracter inf o$ en la esquina 
inferior izquierda de la pantalla; es el caracter que sirvc para rccordar las 
opciones elegidas y cambia al seleccionar una nueva opci6n. 

Anadir el dibujo de figuras concretas no presenta grandes problemas, 
pero vamos a describir cuidadosamente la forma en que se implementan 
estas opciones. Como ya vimos en el capitulo 3, los dibujos de circunfe- 
rencias son lentos; no es aconsejable que la opcion sc llcve a cabo dibujan- 
do y borrando las circunferencias potenciales (con XOR), salvo que el 
programa quiera hacerse insoportable por su lentitud. Lo que hemos 



r 
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* - v*rtica fijado 
O — a*guna» posjciones posibJes 

para el vflrtice opuesto 
- - - lineas no fijadss 



Figura 6.2- Un rectdngulo queda idcniificado por dos vertices opucslos- 
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hccho cs lo siguienic: cuando sc ha seteccionado la opcidn circunl'crencia, 
el primer punto que se fije sera el centro, y el siguiente, un punto de h 
circunfcrcncia; por lo tanlo, cl radio de la circunfcrcncia sera la distancia 
cm re ambos puntos. 

Para las opciones Iriangulo y reciangulo serfa posible dibujar y borrai 

varias veecs la figura, ya que intervicnen pocas lincas. Las dos opciones 

irabajan de forma algo diferente. Cuando se han fijado dos vertices del 

iriangulo, el icrccro pucde esiar en cualquicr pane. Sin embargo, si se 

fija un vertice del reciangulo de lados paralelos a los bordes de la pan- 

ialla, el resto de la figura queda perfectamentc determinada en cuanto 

se conoce el vertice opuesto, o sea, una diagonal completa. Luego, para 

los rectangulos, habra que fijar dos puntos que represcntaran vertices 
opuestos. 

Cuando se esta definiendo un iriangulo o un reciangulo, el problema 
de la fijaci6n de los punios necesarios se resuelve como en el caso de rec- 
las, pero el dibujo y borrado sucesivo de la figura no es lo mismo, ya que 
hay que trabajar con varias lineas a la vez; por eso no sirve la rutina ante- 
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- • - — Ifneas no fljedas 




Knees fijadas 





Hgura 6.3. Mientras no se fije el lercer vertice de un iriangulo, dos de 
los lados qjedaran indctenninados. 
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rior en este caso. Nosoiros homos hccho que los triangulos y reclangulos 
no se dibujen mientras no csicn fijados lodos los punios necesarios. Esto 
es mcnos atractivo que ir dibujando el triangulo o rectangulo potencial 
hasla llegar al que sc desea, pero esta modalidad podra realizarla el lector 

como cjercicio. 

4999 REM comprobacion de la eleccion circ/rectan 
gulo/triangulo 

5000 PRINT CHR*(23)CHR*<3) ; 

5001 IF CirOO THEN BDSUB 8000 

5002 IF rectangulo>0 THEN GOSUB 9000 

5003 IF triangnlo>13 THEN GOSUB 10000 
5010 GOSUB 3000 

5020 PRINT CHR*<23)CHR*(1> ; 
5030 xant-K : yant™y 
5900 RETURN 

5999 REM elegir opcion del menu; se rechaza si n 
o esta en el menu 

6000 IF x<123 OR k>543 DR y<16 THEN RETURN 
6010 SOUND 7,400 

i>01'7 REM x<S84 significa que la opcion es un cam 

bio de color 

6020 IF *<384 THEN colorvi sibl e=TEST (x ,y> : GUSUB 

7000: RETURN 

6029 REM deducir opcion segun sea la coordenada 

>: 

6033 IF x<416 THEN inf oi-CHR* < 47) : GOSUB 7000:RET 

URN 

6040 IF *<44S THEN inf o4-=CHR* (79) :G0SUB 7000:cir 

c=t: RETURN 

6050 IF x<480 THEN inf a«=CHR*<232> : GOSUB 7000:re 

ctangulo=l: RETURN 

6060 IF x<312 THEN inf o*-CHR* (240) » GOSUB 70M i tr- 
iangulo^ : RETURN 

6069 REM debe ser la opcion de conmutar relleno/ 
no relleno 

6070 GOSUB 15000 
6033 RETURN 

7000 PEN colorvisible 

7010 LOCATE 1,24 

7020 PRINT info* 

7025 IF x<3B4 THEN RETURN 
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7029 REM opcion anulada; nueva elecclon 

7030 circ=0 
7040 tri angulo<=0 
7050 rectangulo=0 
7060 RETURN 

7999 REM dibujo de la circunf erenci a: se requier 
e el centro y un punto de la circunf erenci a 
B000 IF circ=l THEN clrc=2: RETURN 

8009 REM ahcra tenemos los dos puntos y podemo* 

calcular el radio 

8010 xd=ABS(x-xant) : yd*ABS <y-yant) 
8020 radio=SQR (xd*xd+yd*yd) 

6030 MOVE x«nt,y«nt+-radio 

8040 FOR angulo=0 TO 2*PI STEP PI/60 

8050 DRAW xant+radio*SJN<angulo) ,yant+radio*C0S < 

angulo) 

8060 NEXT 

G070 DRAW xanfc, yant*rodio 

8080 PLOT xant,yant,0 

8089 REM boner el indicador de circ a 1 para la 
siguiente circunferencia 

8090 circ=l 
B100 RETURN 

8999 REM rutina de dibujo del rectangulo; se req 

uieren dos vertices 

9000 IF rectangulo=l THEN rectangulo=2:RETURN 

9010 MOVE xant.yant 

9020 DRAWR x-xant,0,colorvisible 

9030 DRAWR Q,y~yant 

9040 DRAWR xant-x,0 

9030 DRAWR 0, yant--y 

9059 REM poner el indicador rectangulo a 1 para 
el rectangulo siguiente 

9060 rectangulo a l 

9070 RETURN 

9999 REM rutina do dibujo d*l trianguloj *e» neee 

sitan los tres vertices 

10000 IF triangulo*l THEN triangulo=2: x l=x i yl=y: 
RETURN 

10010 IF triangulo-2 THEN tri angul o*3: RETURN 

10020 MOVE x,y 

10030 DRAW xant,yant,colorvi»ible 

10040 DRAW ;l,yl 



* f • 



V DIBUJO AKTlSllCO 135 



1005B ORAM X t y 

10059 REM poner el indicador triangulo a 1 para 

el siguiente triangulo 

10060 triangulo=l 

10070 RETURN 

15000 REM a completar decpuos 

13010 RETURN 

La selecci6n de las opciones circunferencia, rectangulo o triangulo se 
manifiesta porque pone a 1 el correspondiente indicador (la variable cuyo 
nombre coincide con la opci6n). La rutina 7000 sirve para que los otros 
indicadores queden a 0; en otro caso se dibujarian dos o ires figuras a la 
vez. La linea 7025 se incluye para que no se pongan los indicadores a 
cuando la opcion ha sido simplemente de cambio de color. Las iineas 
5001 a 5003 se encargan de enviar el programa a la rutina apropiada para 
la realizacibn de la correspondiente figura. 

Las subrutinas 8000, 9000 y 10000, que son las encargadas de realizar es- 
tos dibujos, tienen algo en comun: si el numero de puntos seleccionados no 
completa los que necesitala figura, la rutina se limitaa incrementar el indi- 
cador, pasandose a la selection de nuevos puntos. Esto es lo que hacen las 
Iineas 8000, 9000, 10000 y 10010. El indicador sirve asi al mismo tiempo 
para contar los puntos fijados para la figura. Dos puntos bastan para la 
circunferencia o el rectangulo, pero la opci6n triangulo necesita tres. 

Cuando los puntos fijados son suficientes, se dibuja la figura y el indica- 
dor se carga con el valor 1 . Esto significa que, si se ha escogido una op- 
ci6n como la circunferencia, por ejemplo, esta opcion continuara en pie 
mientras no se elija otra explicitamente en el menu. Si no se tiene esto en 
cuenta, es facil que se obtengan resultados inesperados al tratar dedibujar 
una recta mientras se encuentra activa la opcion triangulo o rectangulo. 
Por la forma en que esta estructurado el programa, permite anadir sin 
dificultad otras opciones, tales como dibujo de elipses. rombos, etc. 



Ejercicios 

1. Aumente la gama de colores hasta 10 colores elegidos por usted. 

2. Introduzca en el menu la opci6n de borrar toda la zona de pantaila dc- 
dicada al dibujo. Esto debe hacer que toda la pantaila tome el color 
del fondo. 

3. Aftada una nueva opci6n que permita dibujar arcos. Un arco debera 
quedar especificado por su centro y por los dos puntos de sus 
extremos. 
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RKLLENADO DE COLOR 

Pasaremos ahora a la rulina de rellenado o sombreado de las figuras cc- 
rradas. El Amstrad dispone de un comando que permite rellenar de un 
color grandes superficies; es el comando WINDOW. Lamentablemenie, 
cstas Areas son forzosamente rectangulares y definidas medianic coorde- 
nadas de texto, por lo que tendremos que elaborar nuestro propio meiodo 
de rellenar una superficie con color. (Esto se refiere al modelo CPC464; 
en los siguienles modelos se dispone de la ordcn FILL, con la que se pue- 
den rellenar recintos cuaiesquiera.) 

Es evidente que, para rellenar completamente el interior de una figura, 
deberemos examinar cada uno de los puntos que estan en su interior. 

Dividiremos el problerna en varias ctapas, elaborando primero una ru- 
tina que rellene los puntos de un segmento de recta, y extendiendola luego 
al caso de superficies. 

Supongamos que hemos elegido un punto cualquiera del interior de 
nuestra figura. Un proceso de dos etapas nos permitira rellenar de color 
todos los puntos de su misma fila. Se examina primero el punto que se 
encuentra a su derecha con la instruccion TEST. Si es del color del fon- 
do, el punto se dibuja del color deseado; este punto se conviertc ahora en 
el nuevo punto de arranque. El proceso se repite hasta que se encuentre 
un punto que no tcnga cl color del fondo, lo que significara que se ha al- 
canzado el borde de la figura. Este proceso esta esquematizado en la fi- 
gura 6.4. 



dirsccion de avance 

O - punto de arranque 

# - punto dibujado 

© - punto limite qua no es del color del fondo 



Figura 6.4. 



Por este procedimiento se une cl punto clcgido con c! borde dc la figura 
mediante una h'nea horizontal. Los restantes puntos a rellenar se locali- 
zan por el mismo procedimiento, pero avanzando ahora hacia la derecha. 
La siguientc rutina rellena de esta mancra unas cuanias lineas: 
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1 REM este e* un programa independiente 

2 REM per o 1 as subrutinas 

3 REM estan preparadas para eer Incorporadas al 
program* principal 

IB MODE 

19 REM dibujo de un triangulo para que sirva do 
ejemplo 

20 MOVE 200, 100 
30 DRAW 450,350 
40 DRAW 340,400 
50 DRAW 200, 100 

54 REM se eligen 10 puntos al azar para rellenar 
r act as partiondo do clloc 

55 FOR con=l TO 10 

59 REM punto al azar dentro del triangulo 

60 rand = INT(RND(l)*230>:>tarranque=210+randsyarra 
nque- 1 10+rand 

70 col orvi eibl e=l : yrel l^yarranque 

79 REM relleno a la izquierda del punto 

80 xinc=-4: xrel l=xarranque 
90 BOSUB 18000 

98 REM ahora a la derecha, pero no se empieza po 
r 

99 REM el propio punto sino por el que esta a su 
izquierda 

100 xinc=4;xrell = xarranqu*- 4 
110 G05UB 1BG00 

120 NEXT 
130 END 

17999 REM coroprobar punto por ■ punto a izquierda 
o derecha 

18000 t=0: WHILE t=0 
18010 xrell=xrell+xinc 
18020 t*TEST(xrell t yrell) 

18028 REM si t=0 es punto es del color del fondo 

1802*? REM y hay que dibujarlo 

18030 IF t=0 THEN PLOT xrel l p yreli f colorvisible 

18040 WEND 

18050 RETURN 
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La subruiina 18000 es invocada dos veccs: una con incrcmcntos de -4 
para la coordcnada X (avance hacia la izquierda) y otra con incremenios 
+ 4 (avance hacia la dcrccha). (Observe que la cuanifa del incremento 
depended del modo de pantalla; en el modo 1 los incremenios sedan 
de ±2.) 

Compruebe que esta ruiina funciona en cualquier caso, haciendola Ira- 
bajar con otra figura, pero cuidando de que las coordenadas xarranque 
e yarranque scan de un punto inferior a la figura. 

iQue ocurre si el punio inicial esta fuera de la figura? Ahora el coman- 
do TEST va a ser insuficiente por si mismo. Yendo hacia la izquierda, 
podemos llegar perfectamente fuera de la pantalla; el comando TEST 
considera estos puntos exteriores a la pantalla como si tuvieran el color 
del fondo. En consecucncia no terminariamos nunca dc rcllenar. 

Hay varias formas de solucionar este inconveniente. Por ejemplo, po- 
demos hacer comprobaciones sobre los valores que va tomando la varia- 
ble xrell: 

59 REM puntos dentro y fuera darl triangulo 

60 rand=INT (RND ( 1 ) »23B) : xarranque=150+randiyarra 
nque=l 10+rand 

17999 REM comprobar punto por punto a izquierda 
o derecha 

18000 t=0iWHILE t=0 AND xrol 1 >0 AND Hrall<639 



Esto, sin embargo, requiere muchas comprobaciones y hace bastanie mas 
lento el programa. Otra posibilidad mas rapida es consiruir un borde de 
color alrededor de la pantalla; al llegar al borde la rutins encontraria asi 
un punto que no es del color del fondo, suspendiendo entonces el proceso 
de relleno. 

Nucstra rutina para rellenar Hneas ya esta completa. £C6mo extender- 
la para que rellene una figura plana? Una forma es examinar los puntos 
que estan encima y debajo de los de la li'nea que se va rellcnando; si sc 
encuentran puntos del color del fondo, sus coordenadas pueden almace- 
narse para servir posteriormente de punios de arranque en el rellenado de 
nuevas lineas. Esto es lo que se representa en la figura 6.5. 

Parece en principio que solo deberiamos ir comprobando puntos hasta 
encontrar uno del color del fondo. Pero ciertas formas cxigen la compro- 
baci6n de todos los puntos, como ocurre con la de la figura 6.6. En figu- 
ras como esta, s61o quedaran rellenos ciertos trozos de las partes vertica- 
ls si no se examinasen todos los puntos. Comprobar todos los puntos 
consume mucho tiempo, por lo que deberemos elcgir cntre velocidad y 
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©OOOOO 

0OOOOOOO 

©oooooooo 




Las coordenadas de estos puntos se v«n 
almacanando en una matrix para 
coJorwrlos mds tarde • 



O - punto del color del fondo 
• - punto dibujado 

® - punto limite que no es def color del fondo 



Figura 6*5. 




la ultima tinea tratada 

1 - ostos puntos d* la \lr\oa do encima sarin ritltanados 

2 — estos puntos de la Unea de encima ya estdn cotoreados 

3 — estos puntos de Is linea de encima estSn sin cotorear y quedarfin asi salvo que 

bacidn se lleve a cabo para todos Ids puntos 



compfo 



Figure 6.6. 



perfecci6n, entre rapidez con eventuales fallos o lentitud con la seguridad 
de un buen rellenado. 
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h^ n ,Y U K na C ° m ° '" qUC Si8UC CS im P" fec "<- P=r° no obstante funciona 
b,en con buena parte dc las figuras usuales examinando solo 4 puntos 

10 MODE 

14 REM matrices para las coordenadas de l OB pun t 

os no caloreados 

13 DIM x (300), y (300) 

19 REM aqui pudc icorpor.r su prop ia f igura de p 
rueba H 

20 xant=150:yant=150 
30 move xant,yant 

40 DRAWR 100,0 

50 DRAWR 0, 100 
60 DRAWR -100,0 
70 DRAWR 0,-100 

7B REM x e y son las coordenadas de un punto 

79 REM de dentro de la f igura 

80 x=200:y=200 
90 colorvisible=l 
100 GOSUB 15000 

110 PRINT CHR*<2->CHR*<0) j 
999 END 

15000 comienzo>=2:-final=l 
15010 xrellaMiyreiisy 
15020 x C2>«XBy<2)oy 

15030 PRTNT CNR*<23>CHR»(0 Js 
15040 PLOT x,y,0 

15050 GOSUB 16000 
15068 GOSUB 17000 
15070 PRINT CHR*<23>CHR*<1); 

TReTp^^ ? R r ' Cta ^ lo >° ° R triangulo >0 
THEM PLOT x,y, color-visible 

15090 RETURN 

1S799 re* comprobar el color del punto 

16000 xactual**xrelljyactual=yrell 

16010 IF TESTCxrell.yrelDOa THEN RETURN 

16020 xinc=-4 

16029 REM comprobacion del color de los puntos d 
o la izquierda 

16030 GOSUB 18000 

16040 xrell factual -4= yrBll=yactu.l 

16049 REM comprobacion del color de los puntos d 

e la derecha 
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16050 xinc=4 

16060 GOSUB 18000 

16070 RETURN 

16999 REM se toman puntos da la lista mientras h 
aya 

17000 WHILE comienzo<X*inal + l) MDD 300 
170 10 xrell=x (comienzo) : yrell =y (comienzo) 
17020 comisnzo=(comienzo-*-l) MOD 300 
17030 GOSUB 16000 

17040 WEND 

17030 RETURN 

17999 REM coraprobacion punto par punto a izquier 

da o derecha 

18300 t-0: WHILE t=0 

19010 Krall^iroll-tMinc 

1BO20 t=TES T (xr ell, yrell) 

18030 IF t*0 THEN PLOT urell, yrell , colorvisibl e 

18040 WEND 

18050 Krell=xrel 1 -xinc:yrel l»yrell -2 

10059 REM si el punto de 1 a linea de aha jo no ee 

ta coloreado, &e almacsna 

18060 IF TEST (xrell, yrell >=0 THEN GOSUB 190O0 

18070 yrell=yrelH-4 

18079 REM si el punto de la linea de arriba no e 

sta colbreada, se almacena 

18030 IF TEST <nrell , yrell > =0 THEN GOSUB 19000 

18090 RETURN 

18"??? REM almacenamlento de las coordenadas del 

punto no coloreado 

19000 final = (f inal+1) MOD 300 

19010 x Hinal>=xreH:y (final )*=yrell 

19020 RETURN 

Pruebe el programa con diferentes figuras. Los puntos que son examina- 
dos son los que se encuentran en diagonal cncima y debajo de los puntos 
finales de la linea que se esta tratando. Las coordenadas de los nuevos 
puntos a rellenarse almacenan en las matrices x( )ey( ). Las variables 
puntero comienzo y final sirven para indicar posiciones en estas matri- 
ces; comienzo indica el elemento de las matrices que contiene las coorde- 
nadas del siguiente punto del que arrancara el proceso; final indica el pri- 
mer elemento de la mairiz que esta todavia libre. 
Por ejemplo, despuis de rellenar la primera lfnea, es muy probable que 
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los cuatro puntos que se cxaminan en las Hneas superior e inferior sean 
del color del fondo; sus coordenadas se almacenaran enx( ) e y( ). La 
subruiina 17000 considera sucesivamente cada punio de los que estan al- 
macenados en la matriz, y la 16000 examina los puntos que estan a la iz- 
quiorda y a la derecha del punto elegido. Los puntos se colorcan con la 
subrutina 18000 (linea 18030) mientras no se encuentre uno del color del 
fondo. Las lineas 18050-18080 comprueban el color de los punlos silua- 
dos en diagonal rcspecto al punto lfmite, y la subrutina 19000 los almace- 
na en las matrices si son del color del fondo. 

* tt 



- puntos Unite 

- puntos dibujados an la linea 

- puntos cuyo color se comprueba 



Figura 6.7. 



Las Hneas 17000 y 19000 llevan el operador MOD porque las matrices 
se tratan en forma circular. No sabemos a priori cuantos puntos debera 
almacenar el ordenador, y 300 parece un limite razonable. Si la figura es 
grande y complicada ha bra que almacenar mas puntos que estos. Lo rae- 
jor entonces es no perder los ultimos puntos, sino almacenarlos en los lu- 

gares correspondientes a puntos que ya habran sido seguramente tra- 
lados. 

Esta rutina consigue rellenar un 90*o de la superficie de los circulos, pe- 

ro los polos superior e inferior no los rellena debido a que los arcos de 

dicha zona estan formados por pequeflos segmentos horizontales. Para 

nuestra rutina esto causa el mismo efecto que una linea horizontal com- 

pleia. Se puede resolver este problema, con un pequeno deterioro en la 

velocidad, examinando dos puntos mas: 

19 REM rectangulo con un braza vertical 

20 xact=150:/act=lS0 
30 MOVE xact.yact 

40 DRAWR 300,0 

50 DRAWR 0, 100 

55 DRAWR -10,0 

56 DRAWR 0,50 
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37 DRAWR -60,0 

58 DRAWR 0,-50 

60 DRAWR -30,0 

70 DRAWR 0,-100 

16000 xactual=xrel 1 : yactual=yrel 1 

16010 IF TEST (xrel 1, yrel 1)<>0 THEN RETURN 

16020 xinc=-4 

16029 REM comprobacion del color de los punto* d 
e la izquierda 

16030 GGSUB 18000 

16031 REM coordenadas del extremo izquierdo de 1 
a linea 

16032 xi£q=xrell 

16040 xrel 1=>: actual -4: yrel l*y actual 

16049 REM comprabacion del color de los puntos d 
e la derecha 

16050 xinc=4 

16060 GOSUB 1Q00B 

16061 REM coordenadas del extreme derecha de la 
linea 

16062 xder=xrell 

16063 REM calcular el punto medio de la linea 

16064 REM y comprobar el color da los puntos do 
arriba y abajo 

16065 xrell=(xizq+xder> /2: yrel l=yactual-2 

16066 IF TEST (xrel 1 , yrel 1 ) =0 THEN GOSUB 19000 

16067 yrell=yactual+2 

16068 IF TEST (xrel 1 , yrel 1 >*0 THEN GOSUB 19000 
1606? REM no es per-fecto pero es rapido 
16070 RETURN 



De esta inanei a, los circulos se rellenan sin problemas; solo hay fallos en 
figuras con trozos de forma vertical unidos al trazo principal por una rec- 
ta horizontal. La posicidn del punto inicial influye mucho sobre cual sera 
la zona que sera coloreada. Si se produce un fracaso en rellenar una zona 
desde un punto, el problema puede quedar solucionado al disponer de un 
punto alternative). Por eso, nuestra rutina parece representar un buen 
equilibrio cntrc velocidad y perfecci6n. Se puede incorporar al programa 
principal de la manera siguiente: 
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15 DIM x (300) , y(3O0> 

3031 IF rell=l AND clrc=0 AND rectangulo>=0 AND t 

riang u la^0 THEN GOSUB 15000 

6069 REM debe ser la opcion rellenar/no rellenar 

6070 IF rt.ll=l THEN roll «0i rol 1 *=CHR* <241 ) ELSE 
rall=l:rell$=CHR* !233) 

6080 LOCATE 17,24 

6090 PRINT rell*; 

6100 RETURN 

B091 IF rell=l THEN x=xant i y=yant I GOSUB 15000 

9061 IF rell=l THEN x» Cx+xant) /2: y~ <y+yant) /2: GO 

SUB 15000 

10061 IF rell=l THEN x = <x+xant+xi)/3:y=(y+yant-+y 
1J/3:G03UB 15000 

10071 REM anadir ademas la rutina de rellenar 

10072 desde la linea 15300 a la 19020 

Esta ruiina actua en dos formas diferentes. Si la opcion de rellenar estd 
presente cuando se activa una de las opciones circulo, triangulo o rectan- 
gulo, la correspond iente figura se rellenara at mismo tiempo que se dibu- 
ja; el relleno comienza en un punto elegido por el ordenador en las lineas 
8091 , 9061 y 10061 . Si la opcion de rellenar esta activa sin que lo este nin- 
guna de las tres anteriores, la rutina actua a partir de la linea 5031 y sirve 
para rellenar la zona en cuyo interior se encuentre el primer punto que se 
fije. Pot lo tanto, si se desea dibujar una recta, habra que desactivar la 
opcion de rellenar, pues en caso contrario el programa interpretara el 
punto que se fije como punto inicial de rellenado y comenzara a llenar la 
palilalia con cl color fijado. 



Ejercicios 

1. Como el rellenado de figuras se hace dibujando puntos individuates, 
es f&cil rellenar utilizando combinaciones de colores. Para ello basta 
con actuar sobre el color que se emplea en la linea 18030. Aftada al 
menu la opci6n de rellenar una figura con una mezcla de dos colores 
clcgidos entre los del menu. 

2. Un inconveniente del programa es que el rellenado se detiene al encon- 
trar un punto dc cualquier color que no sea el del fondo. Esto hace 
imposible rellenar figuras dibujadas sobre areas ya coloreadas. Asi, 
por ejemplo, no se podria dibujar una puerta azul sobre una casa pin- 
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lada dc rojo. Cambic e) programa para que el rellcnado se dctcnga so- 
lamcnte al enconirarse un punto de su propio color. 
3. Modifique la rutina de rellenado, en la forma que ya hemos indicado, 
para que trabaje perfectamente con cualquier figura. 



COMO ARCHIVAR SU OBRA MAESTRA 

Ahora que sabemos realizar dibujos de colores, puede ser interesante po- 
dcr archivarlos. En cl capi'tulo 4 lo que haciamos era almaccnar las coor- 
denadas de los puntos y otras informaciones en matrices que postcrior- 
mente se grababan en un fichero. Ahora podemos hacer lo mismo, aun- 
que el programa requerira modificaciones. Necesitaremos conocer, por 
ejemplo, si los puntos han servido para la opci6n circunferencia o la op- 
ci6n rectangulo, o si una figura va o no rellena. 

Una posible alternativa consiste en grabar una copia de toda la panta- 
11a, tal como esta en un momento determinado. Si posteriormente quere- 
mos ver el dibujo o mejorarlo, basta que lo carguemos de nuevo en la 
pantalla y que continuemos dibujando mediante las opciones del menu. 
Este sistema tiene la ventaja de que puede ser implementardo sin necesi- 
dad de alterar la parte del programa que ya tenemos. 

El almacenamiento en un fichero de la pantalla es s61o un ejemplo par- 
ticular de ia posibilidad que tiene el Amstrad de guardar una copia de 
cualquier parte de la memoria. Como ya hemos dicho en otra ocasion, 
la pantalla no es mas que una representacidn de una zona de memoria 
RAM. Haciendo una copia de esta zona, tendremos en cinta una copia 
de la pantalla. 

El Amstrad neceska algunas informaciones para grabar una copia de 
una zona de la memoria: la posicion en que comienza la zona y su tamano 
(en bytes). Esta information tambien queda grabada, por lo que no se 
necesita recordarla cuando el fichero vuelve a cargarse en el ordenador. 

Las rutinas de grabaci6n y carga se activan pulsando las teclas 'o' fde 
'output') para grabaci6n e 'V (dc 'input') para carga: 

40BO IF rotpuccta*""i " THEN GOSUB 1 1000 
4090 IF respuesta*="o" THEN GOSUB 12000 

10999 REM abrir una ventana que no estropee el d 
ibujo 

11000 WINDCW 1,20, 24, 25: PEN 1 
11CB1B PRINT "Para carga" 
1102B INPUT "nombre: ";dibujo* 

. 11B3B LOAD dibujo* 
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11340 CLS 

11D49 REM de nuevo la pantalla normal 
11050 WINDOW 1,20,1,23 
11060 GOSUB 1000 
11B70 RETURN 

12000 WINDOW 1,20,24,25:PEN 1 
12010 PRINT "Para grabacion" 
12020 INPUT "nombre: "jdibujo* 

12029 REM almacenamiento de la pantalla 

12030 SAVE dibujo*,b,5<C000,$,3FCF 
12040 CLS 

12050 WINDOW 1,20,1,25 
12055 rel 1=0: GOSUB 7030 
12060 GOSUB 1000 
12070 RETURN 

La subrutina 12000 graba en cinta un fichero con los datos de la pantalla. 
Es imporiante que el dibujo de la pantalla no se eslropee con los mensa- 
jes que deben escribirse; por eso se reserva una ventana en la parte baja 
de la pantalla que hacc dcsapareccr tcmporalmcnte el mend. La lfnea 12030 
graba el fichero: B indica un fichero de tipo binario (son los que hay que 
emplear para grabar zonas de memoria), &CO0O es la direccion hexadeci- 
mal del comienzo de la zona de memoria que corresponde a la pantalla 
y &3FCF su longitud en bytes. Cuando el fichero ha sido grabado, el me- 
nu reaparece y el programa continua. La subrutina 11000 caiga un dibu- 
jo; es similar a la rutina de grabaci6n, salvo por el hecho de que el coman- 
do LOAD de la lfnea 11030 es mucho mas simple. Cargar un dibujo es 
muy especiacular: el dibujo no se carga comenzando por arriba, como se 
podria pensar, sino en forma de bandas horizontales que se van haciendo 
cada vez mas gruesas hasta cubrir la paniaJIa. Esto rcflcja la complejidad 
de la representacidn de la pantalla en la memoria, donde posiciones suce- 
sivas de la memoria pueden corresponder a zonas distantes de la pantalla. 

Ejercicios 

1. Aflada un 'zoom' a las opciones posibles, de manera que el dibujo pue- 
da ser cambiado a una cscala diferente. (Para mejorar la velocidad 
puede venir bien no rellenar las figuras.) 

2. Aflada una rutina que permita teclear un texto y colocarlo en la posi- 
ci6n deseada dc la pantalla. 

3. Modifique el programa para que admita cualquiera dc los colores no 
parpadeanfes del modo 0. 



Transformaciones 



TRANSFORMACIONES DE UNA FIGURA 

En otros capftulos hemos estudiado la forma de desplazar puntos en la 
pantalla para situarlos en la posici6n mas adecuada. Ahora vamos a ver 
como se desplaza, no un simple punto, sino toda una figura. Ademas, 
el movimienio no tiene por que" realizarse necesariamenie a base de des- 
plazamientos sucesivos de un punto de longitud. Fs frecuente lener que 
realizar una serie de transformaciones de una figura. 

Ya sabemos hacer lamas sencilla de las transformaciones, la tras/acidn. 
Consiste en el movimiento en una direccidn. Hasta ahora hemos trasla- 
dado puntos y caracteres, pero es facil adaptar lo que ya hemos hecho pa- 
ra trasladar figuras enteras: 

10 MODE 2 

20 DIM x (100) ,y(100> ,z(100) 

69 REM car gar la figura 

70 GOSUB 1000 

74 REM modalidad grafica 

73 PRINT CHR«(23)CHR*(1) ; 

79 REM dibujar la figura 

80 GOSUB 2000 

89 REM opcion 

90 GOSUB 3000 
800 MODE 1 
900 END 

999 REM lectura de los dates de la figura 

1000 READ numdelin 

1010 FOR con=0 TO numdelin 

1020 READ y. (con) p ytcon) ,1 (con) 
10"30 NEXT 

1040 RETURN 

1498 REM en nuestro ejemplo es un hexagono 

147 
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1499 REM sustituya la figura y sua datos por los 
quo usted desee 

1500 DATA 6, 300, 100,0,400, 100, 1,490, 190,1,400,28 
0,1,300,280,1,210,190,1,300,100,1 

1999 REM rutina de dibujar /borrar 

2000 MOVE x (0) , y<0) 

2010 FOR con=l TO nuffldelin 

2020 XF 1 Icon) >0 THEN DRAW x (con) , y (con) ELSE MO 
VE x (con) , y (con) 
2030 NEXT 
. 2040 RETURN 

2993 REM rutina de selection de la opeion; *e' p 
ara terroinar 

2994 REM 't' para la traslaclon 
3000 respuesta*="" 

3010 WHILE respuesta*<>"e" 

3020 respuestat=LOWER*(IIMKEY*) 

3030 IF respue3ta*="t" THEN GOSUB 4000 

3500 WEND 

3510 RETURN 

3997 REM rutina de traslacion 

3998 REM la traslacion se realisa con las teclas 
R/z/,/. y 

3999 REM la figura trasladada se fija pulsando 1 
a tecla de espacio 

4000 WHILE respuesta*<>" " 

4005 respuesta»=LOWER* (INKEY*) 
4010 xinc=0: yinc=0 

4020 IF respuesta*="a" THEN yinc=2: respuesta$="" 
: GOSUB 4500 

4030 IF respuesta*="z" THEN yinc— 2:respuesta*=" 

": GOSUB 4500 

4040 IF respue5ta*='V THEN xinc»-4:respuesta$=" 

": GOSUB 4500 

4050 TF respu«et**=». " THEN x inc-4 j reapuesta* 
= "": GOSUB 4500 

4100 WEND 

4110 re3puesta*="" 

4120 RETURN 

4499 REM efectua la traslacion 

4500 GOSUB 2000 

4510 FOR con=0 TO numclvlin 
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4520 x=*x (con) s y=y (con) sGOSUB 10000: x (con) ■* ay (co 

n> *»y 

4530 NEXT 

4540 GOSUB 2000 

4550 RETURN 

?999 REM cambio de datos por traslacion 

100013 x-«*?;incjy B yyinc 

10010 RETURN 

La traslacion es la transformation mas sencilla de programar, pcro la tcc- 
nica que se utiliza no sirve para otras transformaciones, como puede ser 

la rotaci6n de una figura. Para una scric de transformaciones, el metodo 

mas geoeralizado es el empleo de matrices. 



Transformaciones malrieiales 

Podemos girar, alargar o reflejar cualquier figura multiplicando las coor- 
denadas de todos sus puntos por una matriz apropiada. Vamos a dar un 
breve resumen de la multiplication de matrices, aunque no es esencial su 
comprensidn para la simple utilizaci6n de los programas que siguen. 

Para multiplicar dos matrices se mulriplican los numeros de cada ftla 
de la primera matriz por los de cada columna de la segunda, tal como se 
explica en la figura 7. 1 , y se van sumando los productos obtenidos. Estas 
sumas de productos son los numeros que forman parte de la matriz que 
constituye el resultado. Las matrices pueden ser de tamanos diferentes a 
los del ejemplo, pero, para calcular la transformation de un punto de una 
figura, son estos tamanos de matrices los que interesan. Esto se dcbc a 
que los puntos vienen dados por dos coordenadas. 



(3 5)(? ^) = (3x2 + 5x1 3x4 + 5x2) 



1 2, 






= 111 22) 
Figira 7.1. 



Una serie de matrices de 2x2 elementos sirve, por ejemplo, para girar 
un punto 10 grados en el sentido de las agujas del reloj, o para alargar 
una figura en un factor de 1.5, etc. El resultado de multiplicar una matriz 
de coordenadas por una matriz detransformaci6n es, como hemos visto 
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en cl cjcmplo, oira matriz de coordenadas. Si la mairiz que rcsulia en el 
cjemplo la multiplicamos por la mairiz de unanueva transformacion, ob- 
icncmos cl resultado de aplicar a un punto las dos trans form aciones suce- 
sivas; csto es lo que nemos hecho en la figura 7.2. 



(11 22) 



,3 2/ ' M1 * ' + 22 * 3 11x2+22x2) 
=-(77 66) 

Figura 7.2. 



De hecho, hay una manera de agilizar el proceso. Se pueden multipli- 
car pnmero las dos matrices de transformaci6n y utilizar el resultado para 
transformar el punto inicial. El resultado es el mismo que el de las dos 
transformaciones sucesivas, corao muestra la figura 7.3. 



(2 *\/l 2\/2x 1+4x3 2x2 + 4* 2\ 
\\ 2J\3 2/ ^1x1+2x3 1*2 + 2x2/ 

- (? ") 

' 3 A 7 6 ) ~ (3 K M + S x 7 3 x 12 + 5 x 6) 
= (77 66) 
Figura 7.3. 

El principal inconveniente que tiene el metodo matricial es que no se 

puede representor la traslaci6n utilizando una matriz 2X2, lo que hace 

que este tratamiento no pueda ser totalmente general Ya hemos visto 

que es posible reducir transformaciones compuestas a una sola matriz 

pero las traslaciones quedan fuera del sistema. Utilizando matrices 3 x 3 

es posible rcpresentar las transformaciones, incluyendo ahora las trasla- 
ciones. 

Como ya estamos acostumbrados a manejar la traslaci6n de otra mane- 
ra, vamos a quedamos con las mairices 2x2, aunque tengamos que tratar 
ta lraslaci6n de forma diferente. 
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El triangulo 1 se convierte en el 2 al girarlo 30 grados en el sentido de las agups del reloj: 


(I |L« -«n»\ /** ™\ 


El iridngulo 1 se ccnvierte en el 3 al girarlo 20 grados en sentido contrario a las agujas 
del reloj: 


bat— «.»)-fe «j 


En general, la rotacidn de 6 grados en el sentido del reloj viene dada por: 


, Vcostf -sen(A 

\senfl rosfl/ " txco *° + Y* " xaenff + ycoa*) 


V la rotacifin de 6 grados en sentido contrario al r^loj, por: 


, J cos 9 sen(>\ 

I v B fl ) = Ixcosfl- ysenfl senfl + ycosM 


Figura 7.4. 
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Rotacidn 

Para la rotacidn de un deierminado angulo hay dos matrices posibles, se- 
gun que la rotacion se haga en un sentido o en el otro. La figura 7.4 ilus- 
tra acerca de estas dos matrices. 

Si comparamos los resultados de la multiplicacion, observamos que se 

direrencian solamente en los signos. Si definimos la variable rotacion para 

que valga I cuando la rotacion es en el sentido de las agujas del reloj, y 

- 1 cuando el sentido es el opuesto, obtenemos una misma ecuacion para el 

giro, mdependientemente de su sentido; podcmos ver esto en ia figura 7.5. 



xnuevo - xviejo x cos0 + rotacion = yviejo x sen 6 
ynuevo = -rotacion x xviejo x senfl + yviejo x cosi 

Figura 7.5. 



Se puede generalizar el programa anterior con la posibilidad de realizar 
tambicn rotaciones: 

2995 REM *r* para la rotacion 

3040 IF respuesta*="r" THEN GOSUB 5000 

4995 REM rutina de rotacion 

4998 REM la rotacion es de 5 grado* on «1 rfontid 
o del reloj 

4999 REM pero puede cambiar estos datos 
3000 angulo»3 

5010 rotacion=l 

5199 REM borra la figura anterior 

5200 GOSUB 2000 

5299 REM coe-f icientes de la trans-f ormacion 

5330 DEG 

5310 xtransl=COS (angulo) : ytrans2»xtransl: xtrans2 

=rotacion»SIN(angulo>!ytransl*-xtrans2 

5499 REM calcula la figura girada 

5500 GOSUB 1 1000 

5599 REM dibuja la -figure girau. 

5600 GOSUB 2000 
5699 respuesta*="" 
3700 RETURN 

10999 REM cambio de datos por transf ormacion mat 
ricial 
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11000 


FDR con^O TD numdelin 




LI (BIO 


almaccn^x (con) 




11020 


k (con)=x (con) »>: trans 1+y (con) *xtrans2 




11030 


y (con)=almacen*ytransl+y (con)*ytrans2 




11040 


NEXT 




11100 


RETURN 




Obse>vese que 


la rotaci6n se produce alrededor del punto (0, 0). Es mcjor 




poder seleccionar el centro de giro, lo queresulta sencillo de programar: 




30 xcentro=320:ycentro=200 




499fa REM el centre de la rotscion so calocciona 




con a. 


<z/,/. y se fija 




4997 REM pulsando la tecla de espacio 




5099 REM fijacion del centro de la rotacion 




5100 60SUB 15000 




5500 GOSUB 12000 




11999 


REM rutina para transformer las coordenada 




s de la -figura por cualquier transf ormaci on matr 




icial 


con centro arbitrario 




12000 


xincM-Hcentro: yinc=-ycentro 




12010 

i 


FOR con=0 TO numdelin 




12020 


x=x (con) syay(con) : BOSUB 10000: x (con) *x : y (c 




on)=y 






12030 


NEXT 




12040 


GOSUB 11000 




12050 


xi nc"xceritro: yinc=y centro 




12060 


FOR con=0 TO numdelin 




12070 


x«x (con) :y=y (con) :GQEUB 10000: a (con) =x : y (c 




on) -y 






12000 


NEXT 




12100 


RETURN 




14999 


REM rutina de fijacion de un centro de la 




transf or macion 




15000 


TAG 




15004 


REM correcciones para centrar un caracter 




en un 


punto; la izquierda debe ser en mode y 




4 en 


modo 1 




15005 


correccionis quierda~2: corrBccionarriba*4 




15010 


MOVE xcentro-ccirreec ion izquierda, ycentro+c 




orreccionarriba:PRINT CHR*(129); 




15100 


WHILE resp-_esta*<>" " 






' 
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131 10 r«spue«ta*«LaWER$ (INKEY*) 
15113 xlnc=0: yinc=0 

15120 IF respuesta*="a" THEN yinc=2trespuesta*=" 
": GOSUB 15S00 

15130 IF r 06P L lcs t»«^' s " THEN yi nc— 2s re6puesta*« 
""a GOSUB 15500 

15140 IF respue 5 ta*=% " THEN xinc«-4i respue S ta*= 

" ' : LiUSLB 15530 



\ 



15130 IF respuesta**"." THEN xinc=4:respuesta*=" 
"iGDSUB 1550B 
15200 WEND 

15210 respuestat*"" 

15220 MOVE xcentro-carreccloni 2 quierda,ycentro+c 

orreccionarriba:PRINT CHRt(129)| 
15230 RETURN 

15499 REM borrar antiguo centro y dibujar el nue 

VD 

15500 REM 

15510 MOVE xcentro-correccionizquierda.ycentr 
o^orreccionarribarPRlNT »RM 129) , , Kcsntro-xcen 
tro +X * nc : ycentro= y centro + yi nc: MOVE xcentro-corr e 

ccion^q Uie rda ( yc e ntro + c rreccionarriba:PRlNTCH 

15600 RETURN 



Ampliation y reduccion 

Ya vimos antes que era facii ampliar o reducir una figura, pero entonces 
no tenfamos control sobre el centro de la ampliaci6n. Con el m£todo ma- 
iriciai podemos introducir ampliaciones diferentes en la direcci6n decada 
cje, lo que permite estirar las figuras en la direccion de uno de los ejes; 
los aspectos formales se pueden ver en la figura 7.6. 
Es ficil aftadir esta posibilidad a nuestro programa: 

2996 REM *g' para *1 arga<niento 

2997 REM 'p* para reduccion 

3050 IF respuesta*t="g" THEN GOSUB 6000 
3060 IF respuesta*="p" THEN GOSUB 6100 

5995 REM rutina de alarg am iento o reduccion a es 
cala 

5996 REM el centro se selecciona con a/z/./. y s 

e f 1 ja 
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El triSngulo 1 se transforms en el 2 mediante: 


(•:)(")■(» i) 


Con diferentes valores en la diagonal se obtiene un alargamiento en la direccttn de un eje: 


1 (1 i)« s> - (1 1) 


De manera general, los alargamientos y reducciones vienei dados por: 


,x Ko* i^) =,ni xx n2x Vl 


Figura 7.0. 


5997 REM pulsando la tecla de espacio 


599B REM esta es la rutina de al argani ento 


5999 REM *largami ento a escala 1.1 en ambos ejes 


; cambie el coef iciente si lo des&a 


6000 escal SUt m l* Is escal ay=l, 1 



156 TfiCNICAS DE progaamaciOn de orAficos en bl Amstrad 

6010 GOTO 622)0 

6098 REM esta es la rutina de reduccion 

6099 REM reduccion a escala 0.9 en ambos ejes; c 
ambit? el coeficiente si lo desea 

L t Pi0 Q:caUir0.9sescaUy-0 t 9 

6199 REM -fijacion del centro de alarqamiento/red 
uccion 

6200 G0SUB 15000 

6299 REM borra la figura anterior 
6310 G0SUB 20B0 

6399 REM coeficientes de la transf ormacion 

6400 xtransl=escala>;: ytrans2=escalay: xtrans2=0: y 
transl=0 

6499 REM calcula la figura* transf ormada 

6500 BCSUB 12000 

6599 REM dibuja la figura transformada 

6600 GD5UB 2000 
669? respuesta*="" 
6700 RETURN 



Simetria 

La simetria (o reflexi6n) sobre el eje X o el eje Y se puede Hevar a cabo 
con las matrices de la figura 7.7. 



(x y]Q °,) = lx -y) (simetria de eje XI 



(x vl I - i -x v) (simetria de eje Y) 



Figura 7.7. 



Como ocurria con la rotacion, las dos matrices son en esencia una sola. 
Para vcr cl cfccto dc la simetrfa cs nccesario trasladar los ejes, pues de 
lo contario la figura resultante se sale de la pantalla. 

2998 REM 'f para reflexion 

3070 IF respuesta*="f " THEN GOSUB 7000 
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6995 REM rutina de re-flexion sobre un eje 




6996 REM la re-flexion es sabre un eje vertical o 




sobrQ un ej© horizontal 




6997 REM que pasan por el punto que se desee 




6998 REM el punto se selecciona con a/z/ f /* y %m 




fija 




6999 REM al pulsar j k* o 'y* , lo que selecciona 




ademas el eje 




7000 GOSUB 1600J1 




7099 REM ccef icientes de la trans-f ormaci on 




7100 IF respuest-a$="K" THEN xtransl^l : ytrans2--l 




: xtrans2»0: y trans 1-0 ELSE xtr ansl-— 1 1 ytrans2**la x 




trans2=0:ytransl=0 




7199 REM borra la *f igura anterior 




7200 GOSUB 2000 




7299 REM caleulo lei f igura tranaformada 




7300 GOSUB 12003 




7399 REM dibujo de la figura re-flejada 




7400 GOSUB 2000 




7499 respuesta*== l,M 




7500 RETURM 




15999 REM rutina de fijacion de un centra y un e 




je de la transf ormaci on 




16000 TAG 




16004 REM cor rec clones para cent?~ar un car act er 




en un punto; la irquierda debe ser S en modo y 




4 en modo 1 




16005 correccionizquierda=2: correccionarriba=4 




16010 MOVE xcentro^correccionizquierda, ycentro+c 




orreccionarriba: PRINT CHR$(129)j 




16100 WHILE respuestatO";:" AND respuestatO'V 




16110 respuesta*=*LOWER*UNKEY*) 




16115 xinc=0: yinc=0 




16120 IF rsf6pues>ta*- - a" THEN yinc=2:respuesta*=" 




"n GOSUB 16500 




16130 IF respuesta*= - z" THEN yinc==-2: respuesta*= 




mn t GOSUB 16500 




16140 IF respt-iesta*=", " THEN xinc a -4:respuesta*° 




""iGOSUD 16500 




16150 IF respuesta*="." THEN x inc=4:respuesta*»" 




": GOSUB 16500 




16200 WEND 
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16220 MOVE xcentro-correccionizquierda,ycentro+c 
orr«ccionarriba:PRINT CHR* (129) ; 
16230 RETURN 

16499 REM borrar antiguo centro y dibujar el nue 
vo 

16500 REM 

16510 MOVE xcentro-correccionizquierda, yce 
ntro+carreccionarriba: PRINT CHR«(129) ; sxcentrD*x 
centro+jiinc:ycentro=ycentro+yinc:MDVE xcentra-co 
rr ecc i on i= qua cr da, yeentro+correcc ionarri ba: PRINT 
CHR«(129) ; 

16600 RETURN 

La simctria sobre rectas diferentes de los ejes es mas delicada y requiere 
olras transformaciones. 



Cizalladura 

Se (rata de uo movimiento en el que el dcsplazamicnto dc cada punto dc- 
pende de su distancia at eje del movimiento: 

2999 REM 'c' para cizal lamiento 

3080 IF respuesta*="c" THEN GOSUB 3000 

7995 REM rutin* de ci sal 1 ami ento en la direccion 
de un eje 

7996 REM el eje es vertical u horizontal 

7997 REM pasando por el punto que se desee 

7998 REM el punto se selecciona con a/z/,/. y se 
fija 

7999 REM al pulsar ' x » o 'y' , i que selecciona 
ademas el eje 

8000 QCSUB 16000 

8099 REM coeficientes de la trans-f ormacion 

B100 xtransl=l:ytrans2=l 

8110 IF respuesta*="x" THEN ytrans! = l : x trans2=0 

ELSE xtrans2=l: y trans 1=0 

0179 REM borra la flgura anterior 

B200 GOSUB 2000 

8299 REM calcula la figura trans-f ormada 

8300 GOSUB 12000 

8399 REM dibujo de la figura transformada 
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3100 GOSUB 2000 
8499 respuesta*=' 
3500 RETURN 



i H 



Ejercicios 



1. Todas las trans formaciones del programa se realizan sobre una figura 
extrafda de un DATA. Aflada una rutina al programa que le permita 
dibujar una figuia y lucgo trans for marla. 

2. Modifique el programa para que sea posible que la figura inicial pcr- 
manezca en la pantalla junto a la transformada. (Esto puedc producir 
dibujos interesantes.) 

3. Las I rans formaciones mairiciales se pueden utilizar en la obtencion de 
formas cspcdalcs, como las que obtuvimos en cl capftulo 4 incdiantc 
rotaci6n repetida y alargamiento. Escriba un programa que permita 
especificar una serie de trans formaciones sucesivas a realizar con una 
figura. Haga que se pueda elcgir el numero de veces que se repetira 
cada transformaci6n. Tras introducirle estos datos, el ordenador de- 
bcra realizar las opcracioncs indicadas, dibujando las figuras que va- 
yan resultando. Haga que cada figura se dibuje en un color, para ob- 
tener mejores efectos. 

4. Los programas de CAD (Computer- Aided Design o "Disefio asistido 
por ordenador") contienen un menu de figuras diversas. Cuando el 
usuario cligc una dc cllas con cl cursor, la figura qucda pegada al cur- 
sor y se desplaza con el hasta que la figura se fija en el lugar deseado. 

Escriba un programa sencillo para CAD que permita simplificar el di- 
bujo de una casa. Incluya como figuras varios tipos de puertas y ven- 
tanas. (Anada detalles que distingan cada tipo, pero no tantos como 
para que rcsultc demasiado lento el dibujo )' borrado de las figuras.) 
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Tecnicas de Prog ram acion 
de Graficos en el Amstrad 



La ealidad de Id presentation en la panialla es fundamental para muchos 
prog ram as. Esle libru ensefia a aprovechar plenameme las excelentes 
funciones g s del Amstrad. En los ejemplos se incluyon rutinas que 

el lector puede incorporar tecilmente a sus propios programas. 

Entre los temas Trarados se encuenlran los juegos de tipo «maqumas tra- 
gaperras». la animation de figuras sencillas, realization de imagenes en 
color y su grabacfon en einta, disefto de diagramas de barras y de sec to 
res, cambios do cscala y trnnsformacion Oe figuras y muchas otras aplica- 
ciones inferesantes. En rodos los capftulos se dan sugerencias para anv 
plior y rnojorar los programas de los ejemplos. 
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